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Línea directa 



80 columnas 

Tengo un ordenador SONY 
HB/5P y tecleo todos vues- 
tros programas. Tengo en- 
tendido que existe un cartu- 
cho de Display para 80 co- 
lumnas. He preguntado en 
Segovia por ese Display y no 
me han sabido dar razón de 
él. 

Jacinto Santiago Herrero 
de Frutos 
Mozoncillo (Segovia) 

Efectivamente existe un car- 
tucho que te permite traba- 
jar con el Display a 80 co- 
lumnas. Se trata del cartucho 
SV 1-727 de Spectravideo, 
que tiene un precio de venta 
al público de 23.900 ptas. 



PROBLEMAS 
DE IMPRESION 

Tengo un ordenador HB75P 
y el siguiente problema: 
En el programa INDIANA- 
POLIS me da un error en la 
línea 810. Repaso el progra- 
ma con LIST y veo electiva- 
mente que en la línea 810 la 
última secuencia está mal 
puesto que me sale 0! en lu- 
gar de . como Vdes. indican. 
¿Es problema de mi 
ordenador? 

Juan Antonio Martínez 
del Sol 
Barcelona 

Puedes estar tranquilo. Tu 
ordenador funciona perfec- 
tamente. El punto al que te 
refieres es en realidad una 
desafortunada mancha en el 
fotolito de esa página. In- 
sistimos: se trata de una ca- 
prichosa mancha en forma 
de punto que no debe figu- 
rar. El hecho de que cuando 
listes el programa te aparez- 
ca un 01 se debe a que la 
máquina interpreta ese pun- 
to como una coma decimal, y 
al no estar seguido de ningún 
número lo identifica como 
un en simple precisión. 



STARS 

Les envío esta carta porque 
en la revista STARS número 
2 el programa el cazador 
cuando carga el programa 



me sale found pero después 
se me pone al principio. 
¿Qué tengo que hacer? 

Juan Carlos Esteban 
C/. Ofiola 56-Urb. Es Pont 
DTnca Nou 
Palma de Mallorca 
(Baleares) 

En primer lugar, lo que de- 
berías hacer es dirigirte a la 
editorial de la revista STARS. 
Manhattan Transfer S.A. 
(editora de EXTRA y de 
MSX CLUB) tan sólo ha 
editado una cassette con el 
programa KRYPTON que 
se comercializara actualmen- 
te. De todos modos, tenemos 
entendidos que otras casset- 
tes para MbX que han apa- 
recido en el mercado tienen 
problemas de carga. No po- 
demos solucionar tu proble- 
ma, pero sí podemos garanti- 
zarte que nuestras cintas no 
te lo darán. 



FUSION 
DE PROGRAMAS 

El motivo que me impulsa a 
escribirles es para pedirles 
cómo se ensambla un pro- 
grama. Sé que existe una 
sentencia MERGE, pero no 
se como utilizarla. Una 
cuestión más. La sentencia 
NEW borra una programa 
en BASIC de la memoria, 
pero cuando en la memoria 
existe un programa en len- 
guaje máquina, este perma- 
nece invariable aunque se 
ejecute NEW. ¿Cómo debo 
hacer para borrarlo? 

Pedro J. Hondeville 
Marenzi 
Las Arenas (Vizcaya) 

El modo de utilizar MERGE 
es muy simple. Para fusionar 
dos programas con esta sen- 
tencia, tan sólo debes obser- 
var un requisito: Cuando 
grabes el programa en la cin- 
ta, debes hacerlo en formato 
ASCII, es decir utilizando 
SAVE »nomprogra». Otra 
cosa que debes tener en 
cuenta es que la numeración 
de las líneas de los dos pro- 
gramas a fusionar no coinci- 
da, puesto que en caso de que 
fuera así perderías las líneas 
cuyos números coincidieran. 
Una vez almacenado el pro- 
grama en la cinta, para fu- 
sionarlo con el programa que 



tengas en la memoria del 
ordenador tan sólo debes te- 
clear MERGE «nomprogra» 
y cuando el ordenador te res- 
ponda OK ya estará realiza- 
da la fusión. Efectivamente, 
NEW no borra un programa 
en lenguaje máquina. Para 
ello debes efectuar un RE- 
SET, bien sea pulsando esa 
tecla o en el caso de que tu 
máquina no disponga de ella 
simplemente apagándola. 



MALENTENDIDO 

Es curioso observar que en 
el apartado «Linea directa» 
de vuestra revista los usua- 
rios realizan preguntas que 
si bien algunas son contesta- 
das satisfactoriamente, otras 
se quedan a la mitad y en 
otras no se contestan a lo 
que se pregunta. Este es el 
caso de la pregunta realizada 
por J.G.M. en el número 7 
con el título Sistema Opera- 
tivo del MSX, donde a este 
señor no se le responde có- 
mo puede hacerse usuario de 
la red de comunicaciones 
LAN de Spectravideo. 

Daniel Tous 
(Gerona) 

Lamentamos la pobre opi- 
nión que te merece nuestra 
línea directa. De todos mo- 
dos, a ese lector se le respon- 
dió que la red LAN no era 
un club, sino un sistema pro- 
fesional. Esto es: La red 
LAN no es una red de comu- 
nicaciones por ordenador en 
el sentido en que tú lo in- 
terpretas, sino que se trata de 
un aparato útilísimo si lo que 
deseas es interconectar varios 
MSX para que actúen como 
terminales de otro. Ya ves, 
no es que nosotros desconoz- 
camos el tema, simplemente 
tú lo has interpretado erró- 
neamente. Además, para que 
veas lo que es el LAN te lo 
mostramos en «Monitor al 
día». 



BEE CARD 

¿Hay algún lugar en Barce- 
lona donde pueda encon- 
trar la tarjeta BEE CARD y 
su adaptador? Aproximada- 
mente ¿Cuándo saldrá vues- 



tra 1 ." cassette para reservar- 
la en mi kiosco? Por último 
en el programa LA PIRA- 
MIDE, en la segunda panta- 
lla no consigo pasar por en- 
cima del pato. ¿Es 
imposible? 

Rafael Molina 
(Hospitalet LL). 

La BEE CARD podrás en- 
contrarla en tu tienda habi- 
tual de informática o en 
algún gran almacén. Caso de 
no encontrarla, te remitimos 
a SERMA o INDESCOMP, 
que son quienes las distribu- 
yen. Nuestra I.' cassette está 
a la venta, pero de momento 
no se distribuirá a través de 
los kioskos, sino que se en- 
viará contra cupón de pedido 
(del mismo modo que se está 
vendiendo el excelente libro 
LOS SECRETOS DEL 
MSX). En cuanto a tu pro- 
blema con la pirámide, no te 
desalientes. Seguro que con 
un poco más de práctica con- 
sigues superar esa pantalla. 



LIBRO DE JUEGO 

Hace unos días compré un 
Spectravideo SVI 728 y un 
libro de juegos de MSX edi- 
tado por Indescomp. Pues 
en ese libro he tenido pro- 
blemas con los juegos 10, 1 1 
y 12, por lo que Tes acom- 
paño fotocopia para que me 
encuentren el fallo. 

Alfredo M. Alvarez 
Granada 

No es imposible analizar el 
juego dado que tendríamos 
que cargarlo en el ordena- 
dor. Te recomendamos que 
te dirijas a Indescomp, Av. 
del Mediterráneo 9, 28007 
Madrid. 



COMANDO COPY 

Ante la ausencia de coman- 
do COPY en MSX Ies ruego 
ue me digan si hay alguna 
irección de memoria, pro- 
grama o truco que lo supla, 
pues sería muy interesante. 

Francisco Esquirol 
Córdoba 

El comando COPY existe en 
BASIC para su empleo con 
disco. 
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Editorial 



Hemos querido saludar al año nuevo con este 
número doble, complaciendo de este modo 
numerosas peticiones de nuestros amigos lectores 
que han querido aprovechar el tiempo libre de estas 
fiestas navideñas entreteniéndose y ampliando sus 
conocimientos junto a sus ordenadores. Sin 
embargo otro también ha sido el motivo que nos ha 
impulsado a la realización de este número especial, 
y es la seguridad que precisamente durante estas 
fiestas habrán sido muchos los que hayan estrenado 
ordenador y ¡cómo no! un flamante MSX para 
venir a sumarse a nuestra legión de amigos lectores. 
Por ello vais a permitirnos que desde estas páginas 
demos la bienvenida a la familia MSX a los nuevos 
usuarios de este superrazonable estándar. A ellos, y 
a vosotros los de la vieja guardia, felicitaros por 
vuestra lección ya que MSX es, a ojos vista, el 
sistema que ha de imponerse en este año que 
inauguramos. Nos sobran razones de las que ya 
hemos hablado y, en las que no pensamos insistir, 
que apoyan nuestra afirmación. Sin embargo, 
existe una razón de peso que nos obliga a 
proclamar los cuatro vientos este boom del MSX y 
esta razón la conocemos directamente pues somos 
nosotros los editores, los que podemos comprobar 
como mes a mes nuestras revistas van 
incrementando sus ventas y, como no, sus 
suscriptores. Ello sólo puede obedecer a una razón 
y es, tal como hemos dicho que el MSX se ha 
impuesto en el mercado, a lo cual no lo dudéis 
hemos contribuido con el granito de arena de 
nuestro entusiasmo, reforzado con el palpable 
interés que vosotros lectores habéis demostrado 
hacia nuestras publicaciones tanto MSX CLUB DE 
PROGRAMAS como a su hermana mayor MSX 
EXTRA. Y dado el tono festivo y conmemorativo 
con el que queremos celebrar la entrada de este año 
del MSX, queremos desearos que en él se vean 
cumplidas vuestras esperanzas... y sobre todo que 
los Reyes Magos os traigan software y periféricos 
suficientes para que paséis un montón de ratos 
agradables junto a vuestro ordenador, ratos en los 
que nos gustaría acompañaros mediante el vehículo 
de nuestras publicaciones. Gracias a todos. 

MANHATTAN TRANSFER 



Línea directa 



PROBLEMAS 
DE AJUSTE 



Tengo un Spectravídeo 728 
y al dibujar círculos o cua- 
drados en SCREEN 2 o 3 
me salen elipses o rectángu- 
los respectivamente. ¿Cuál 
puede ser la causa? 

Santiago Julián Saz 
Zaragoza 

Verifica el ajuste de tu tele- 
visor o monitor, pues allí 
puede estar la causa. Si no es 
así lleva tu ordenador al ser- 
vicio técnico. 



USUARIOS DEL 
SVI-518 y SVI-328 

Tengo un Spectravídeo 328 
que como sabréis es semi 
compatible con el estándar 
MSX. Mi pregunta es que si 
bien ya existe un adaptador 
cómo es que aún no se en- 
cuentra en Zaragoza. Si sa- 
béis su nomenclatura y dón- 
de conseguirlo en el extran- 
jero os agradecería que me 
dijérais tales datos. 
También aprovecho la oca- 
sión para comunicaros que 
en breve tendremos en la 
ciudad un club de MSX y 
Spectravídeo. Os agradezco 
de antemano vuestra avuda 
y os deseo que continuéis en 
la misma línea de colabora- 
ción con los usuarios. 

Fernando Loscertales Cases 
Zaragoza 

Es una lástima que muchos 
usuarios que tienen tu mismo 
aparato se sientan margina- 
dos y no puedan usar las 
ventajas de los MSX a pleno, 
cosa que también les sucede- 
rá a los usuarios de Spec- 
trum, Commodore y otros 
sistemas sin mayor futuro. 
Pero para que no sufras en 
este mismo número, incorpo- 
ramos un nuevo colaborador 
a nuestra revista — Federico 
J. Alonso — , quien debuta 
con un amplio artículo acerca 
de las posibilidades de com- 
patibilidad de los Spectraví- 
deo SVI 318 v SVI 328 con el 
sistema MSX. Cosa que tam- 
bién alegrará a lectores como 
Javier Romero (Alicante), 
Juan Tomás (Moltet del Va- 
lles-Barcelona), Santiago Se- 
gura Merino (que nos escri- 



bió una interesante carta), 
José Luis Enrique Sánchez, 
Rosa Cobos (Granada), J uan 
Isidro Fernández (Barcelo- 
na) y una larga lista de ami- 
gos. Todos ellos podrán lógi- 
camente aportar sus comen- 
tarios. 

La referencia del adaptador 
Spectravídeo es SV606 y la 
firma Indescomp S.A., repre- 
sentante de Spectravídeo en 
España, aún no los comercia- 
liza. En Francia, la com- 
pañía Serepe de París sí lo 
nace a un precio de 1.100 F. 
Lamentablemente sólo tene- 
mos su teléfono: (1) 
243.36.22. 



TARJETA 
INTELIGENTE 

El motivo de mi carta es 
porque creo que sería una 
idea genial que hiciérais un 
profundo estudio sobre la 
Bee Card ese software que 
tanto promete, pero que 
concretamente los usuarios 
de MSX no conocemos. Me 
gustaría muchísimo que 
contestárais mi carta y pu- 
blicarais el reportaje en esta 
revista. 

José Luis Rojano 
Alcorcón (Madrid) 

Como podrás apreciar José 
Luis nosotros también ha- 
bíamos pensado en hacer un 
artículo sobre la Tarjeta Bee 
Card. En consecuencia te da- 
mos la doble alegría de pu- 
blicar en este número el artí- 
culo y responder a tu carta. 



TEST DE LISTADO 



Ante todo quiero manifes- 
tarles que el Test de Listados 
publicado en su número 7 es 
incorrecto, pues con todos 
los programas me da el mis- 
mo resultado. 

También desearía me indica- 
ran como se realizan raíces 
cúbicas, cuartas, etc. con la 
función SQR y si ya hay en 
el mercado sintetizador de 
voz para MSX. 

Manuel Caires 
Agramunt (Lérida) 

Te sugerimos que listes bien 
nuestro programa de Test de 
Listado y lo grabes en una 
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cinta virgen: para la verifi- 
cación en cada programa de- 
bes seguir las instrucciones 
que te damos al pie de la le- 
tra. Por ios resultados que 
nos das en tu carta es seguro 
que lo has copiado mal. 
La función St}R es para raíz 
cuadrada. Para sacar raíces 
cúbicas necesitas emplear lo- 
garitmos. 

En el mercado no hay sinte- 
tizadores de voz para MSX. 




AMPLIACION 
DE MEMORIA 
Y BEE CARD 

Quisiera que me resolvieran 
una duda para mí importan- 
tísima. Tengo un Hit Bit 55 
y un cartucho de ampliación 
de memoria de 16R. Pero 
veo que en algunas tiendas 
venden juegos para 64 K y 
48K. ¿Puedo utilizar estos 
juegos? Otra cosa que quie- 
ro saber es donde comprar la 
Tarjeta Bee Card, con el 
adaptador. 

R. Molina 
Barcelona 

Claro que puedes cargar en 
tu ordenador en las condicio- 
nes que nos explicas esos jue- 
gos de 48K o 64K. Lo único 
que no podrías hacer es co- 
nectar una unidad de disco. 
La Tarjeta BEE CARD ya 
se comercializa en España y 
la puedes encontrar en tien- 
das de informática o en 
grandes almacenes. De todos 
modos, si no la consigues di- 
rígete a Serma, S.A. Bravo 
Murillo 377, 3 o A - 28020 
Madrid. 



INTERCAMBIOS 

Quisiera preguntarles si 
puedo caminar con otros 
usuarios MSX los programas 
de su revista, pues sería fan- 
tástico poder hacerlo. 

Héctor Martín Pérez 
Los Cristianos (Tenerife) 

El objetivo de MSX CLUB 
DE PROGRAMAS es preci- 
samente que nuestros lecto- 
res se comuniquen tanto con 
nosotros como entre ellos. 
Por eso hemos dispuesto pá- 
ginas como éstas o las de pro- 
gramas o las de «Tablón de 



Anuncios» para que lo 
hagan. 



D.D.T. 

El programa D.D.T. apare- 
cido en el n° 6 me sale con 
fallos en las líneas 100, 130 y 
180. Espero me indiquen co- 
mo solucionarlas. Asimismo 
les rogaría que perfecciona- 
ran la impresión de los pro- 
gramas, ya que hay signos de 
puntuación que para un no- 
vato como yo pueden in- 
ducir a error. Por otra parte 
quiero información sobre 
cómo adquirir «Los secretos 
del MSX» mediante una for- 
ma que no sea enviando 
talón. 

Eduardo Aristeeui 
Bilbao 

Te recomendamos que veri- 
fiques tu listado, pues el pro- 
grama es correcto tal como 
ha sido publicado. Lamenta- 
blemente no podemos in- 
dicarte lo que puedes hacer 
concretamente dado que no 
nos dices qué te dice el 
ordenador. 

Con respecto a la impresión 
estamos trabajando conti- 
nuamente para que no haya 
posibilidad de confusiones y 
muy pronto una nueva y más 
sofisticada impresora MSX 
para lograr mayor calidad en 
los listados. El libro «Los se- 
cretos del MSX» también se 
puede adquirir mediante gi- 
ro postal. 



CARTUCHOS 
DE AMPLIACION 

Tengo un ordenador Sony y 
quisiera que me aclararan 
una duda. Quiero saber cuál 
es la diferencia entre un car- 
tucho de ampliación de me- 
moria de 16K y otro de 64K. 

Rubén Bilbao Saldueñas 
San Sebastián 

En principio el usuario siem- 
pre dispondrá de 28.9 K si 
trabaja en BASIC, por razo- 
nes de direccionamiento. Es- 
to quiere decir que aunque el 
cartucho de ampliación lo 
haga a 64 o 16K, el usuario 
tendrá libre sólo esos 28. 9 K. 
La ventaja de un cartucho de 
ampliación de 64K reside en 



que con él se puede cargar el 
sistema operativo de disco 
MSX-DOS, ya que éste por 
estructura necesita una me- 
moria RAM de 64K. 



CAPACIDAD GRAFICA 
DEL MSX 

Me he decidido a comprar 
un Spectravídeo SVI-728, 
pero antes quiero asegurar- 
me algunos aspectos acerca 
de los IvlSX ¿Qué capacidad 
gráfica tienen? ¿el modo grá- 
fico es multicolor? ¿Los 
sprites son sólo mono- 
colores? 

Jordi Villaró Farré 
Valls (Tarragona) 

Los ordenadores MSX tienen 
una definición gráfica de 192 
pixels verticales por 256 hori- 
zontales, siendo su capacidad 
gráfica de 16 colores, pero 
cada sprite sólo puede llevar 
un color. Para hacer un spri- 
te multicolor tienes que em- 
plear una subrutina en len- 
guaje máquina. 



FUTURO USUARIO 

Como la mayoría de futuros 
usuarios me encuentro con 
un dilema. No sé que mode- 
lo elegir, por eso quisiera 
que me aclararan lo si- 
guiente: 

- El Hit Bit 101 tiene la mis- 
ma memoria de usuario 
que el HB75 ¿es esto bene- 
ficioso o no a la hora de 
sacar más provecho del 
ordenador? 

- Los programas de los futu- 
ros MSX de 16 bits ¿se po- 
drán utilizar en los actuales 
de 8 bits? 

-¿El lápiz óptico de Sanyo 
es compatible con cual- 
quier MSX? 

- 5i compramos un cartucho 
de 64K y nuestro ordena- 
dor es de 48K ¿tenemos 
que utilizar un cartucho de 
ampliación insertándolo en 
un slot y el otro cartucho 
en la otra entrada? 

José A. Martín Fernández 
Badalona (Barcelona) 

- En efecto el HB 101 tiene 
la misma memoria disponi- 
ble para el usuario que el 
HB/5, pero mientras éste 



último dispone de 35K de 
sistema operativo, aquél 
sólo tiene 3K. Por lo tanto 
depende del uso que les des 
su mayor o menor utilidad. 
-Los AíSX-2 seguirán em- 
pleando un microprocesa- 
dor de 8 bits. 

- El lápiz óptico de Sanyo es 
compatible con cualquier 
MSX. 

- Para emplear un cartucho 
ROM en un ordenador de 
48K no es necesario am- 
pliar la memoria. Sí debes 
ampliarla si utulizas cinta 
con un programa que nece- 
site 32K o más. 



MANUAL TOSHIBA 
EN INGLES 



Tengo un Toshiba HX-10, 
cuyo manual de instruccio- 
nes está en inglés, por lo cual 
quisiera saber si dicho ma- 
nual se encuentra ya traduci- 
do y en caso de estarlo me 
indiquen el domicilio de 
Toshiba. Este problema lo 
tienen muchas aquí en 
Madrid. 

Pedro Bustamante 
Madrid 

Dado que hemos recibido 
muchas cartas explicándonos 
este problema nos hemos 
puesto al habla con Toshiba 
y hemos podido comprobar 
que los manuales que dispo- 
nen están perfectamente tra- 
ducidos al castellano. Lo que 
sucede es que hay importa- 
ción paralela y estas casas al 
parecer no se cuidan de hacer 
las traducciones pertinentes. 



VELOCIDAD 
DE TRANSMISION 

Me dirijo a vosotros para 
que me digas cómo modifi- 
car la velocidad de transmi- 
sión. El problema radica que 
el Spectravídeo SVI 318 tra- 
baja a 1800 baudios y los 
juegos MSX a 1200 y 2400. 

Alberto Pardo 
Hospitalet (Barcelona) 

La velocidad de grabación 
no puede ser alterada, pues si 
lo haces distorsionarías total- 
mente el contenido. A no ser 
que cuentes con un estudio 
de grabación. 



Tablón de anuncios 



Esta sección de MSX CLUB es de nuestros lectores. Todos ellos tienen derecho a tres inserciones total- 
mente gratuitas. Las características de esta sección no permite la inclusión de anuncios con fines de lucro. 



Intercambio y compro todo 
tipo de programas en disco 
para SVI 328. Mandar lista a 
Juan Antonio Blanco García. 
Av. Tomás Giménez, 28, 3.°, 

2. '. Hospitalet (Barcelona). 
CP1. 

Cambio equipo de revelado 
fotográfico (ampliadora, cu- 
betas, bombo para rollo de 
película, secadora, temporiza- 
dor y otros accesorios) por 
Spectrum 48/64 K. Manuel 
Pérez Urbano. P." San Juan, 
51. (Peluquería) 08009 Barce- 
lona. Ref. CP1. 
Contacto con usuarios de 
MSX de Marbella. Guillermo 
García Guerrero. Jacinto Be- 
navente. Edif. Marbelsum II, 

3. °, 2.'. Marbella (Málaga). 
Ref. CP1. 

Intercambio programas de 
todo tipo para ordenadores 
MSX. Mandar lista. Contesta- 
ré a todos. Carlos Bachiller 
Gil. Doctrina, 7, 1." D - 42002 
Soria. Ref. CPl. 
Contacto. I like to corres- 
pond with spanish MSX-users 
to exchange programs, in- 
formation, etc. I make pro- 
gram in Basic as Machine 
Language. Erwin Oei - Wolf- 
senwaard 2, 6932 BL Wester- 
voort - Holland - Ref. CPl. 
Vendo Spectravídeo 728 con 
garantía, adquirido en octu- 
bre/1985. Adjunto programas 
texto y datos y manual. Precio 
total 40.000 pts. Ramón Do- 
mingo Mustarós. Calabria, 
174, 3.", 2.' - 08015 - Barcelo- 
na. CPl 

Intercambio programas de 
juegos o utilidades para MSX. 
Escribir, llamar o enviar vues- 
tros programas a Angel Tomé 
Carrillo, Paseo de Zorrilla, 71, 
1.» izqda. 47007 - Valladolid - 
Tel. (983) 23.29.62. Ref. CPl. 
Vendo ordenador Sony MSX 
y accesorios. Todo nuevo. 
Muy barato. Envío lista deta- 
llada a quien lo solicite. José 
Manzanos Alesanco, Avda. 
Estibaliz, 2." 6A - 01004 - Vi- 
toria. Ref. CPl. 
Envíame cinta con tus pro- 
gramas y te lo devolveré con 
muchos otros en Basic y Có- 
digo Máquina. José Salas Jo- 
dar. Dip. Tiata. Lorca (Mur- 
cia). CPl. 

Cambio más de 40 buenos 
programas comerciales -Buck, 
Manic, Contabilidad, Proce- 
sador de textos, etc. — , por 
cartucho ampliador de memo- 
ria de 16 o 64K. Rubén Soto. 
Teruel, 4. Tudela de Duero 
(Valladolid). CPl. 
Vendo Sony HB55, amplia- 
ción de memoria 64K, casset- 
te, cartucho y cinta de juegos, 
libro Basic y muchas revistas. 



Todo en perfecto estado por 
49.000 pts. Llamar a Raúl al 
tel. (91) 273 18 48. De 12 a 17 
h. Ref. CPl. 

Vendo Spectravídeo SV 318 
de 32K con data cassette por 
35.000 pts. Regalo 60 juegos y 
utilidades, libros y revistas. 
Cipriano Dopico Barreras. 
Escocia, 94 bajos, L°, 08016 
Barcelona. CPl. 
Cambio ciclomotor Derbi 
Variant en buen estado por 
ordenador MSX de 48 o 64K 
y cassette expansión RAM de 
16 o 64 K. Valoraré cualquier 
oferta. Angel Alfonso Amor 
Cabado, Ronda de Outerio, 
416, 3." dcha. 15011 La Co- 
ruña. CPl. 

Contacto con usuarios del 
MSX e IBM para formar un 
club en Alhama de Murcia. 
Más información dirigirse a 
José Martínez Fuertes, Av. 
Bastarreche n" 12b, Alhama, 
300009 (Murcia). CP2. 
Contacto con chicos/chicas 
usuarios del MSX de mi loca- 
lidad. Marcos Fajardo Orella- 
na. Parque Mediterráneo Blo- 
que 15, Piso 5" Izq. Málaga. 
Tel. 34 37 38 de 12,30 a 2,30 o 
5 a 6,30. CP2. 

Cambio cintas con 30 juegos 
y 3 de utilidades por uno de 
estos juegos: Space Trouble, 
Battle Cross, Juno First, Do- 
rodón, Máxima, Zaxxon, etc. 
Chuchi. Telf. 22 38 19 - Cáce- 
res. CP2. 

Intercambio programas MSX. 
Poseo más de 20 títulos. 
Alberto Pardo Hernández. 
Tel. (93) 422 72 25. CP2. 
Intercambio programas MSX 
en código máquina. Sorcery, 
Blagger, Manic Miner, Chess, 
etc. Juan González. Tel. 463 
67 46 de Vizcaya. CP2. 
Intercambio programas MSX 
en disco de 5/4 preferible- 
mente de gestión y CP/M. 
Francisco Esquivel Parque Fi- 
diana Bl. 2 14014. Córdoba. 
CP2. 

Atención Si eres de San Se- 
bastián y dispones de un 
MSX, ponte en contacto con- 
migo. Antonio Millán San 
Emeterio c/. Matía 44 - 4 - 
DHC. S. Sebastián 20008 - 
Tel. 21 64 66. CP2. 
Intercambiamos cintas, ideas, 
trucos e información para 
Spectrum. Club Onubasoft, 
apt. de correos 1212. Huelva. 
CP2. 

Vendo Super Expander del 
Spectravídeo, controlador de 
disco y dos unidades de disco 
5 1/4" simple, cara doble den- 
sidad. Todo por 55.000 pts. 
José Puigve'rt Bonfill. c/Sta. 
Lucía 1 , Canet de Mar (Barce- 
lona). Tel. (93) 749 11 30. 



Necesito urgentemente pro- 
grama MSX que controle ca- 
rreras de marathón y de los 
resultados por impresora. 
Antonio Millán. Tel. (943) 
216466. CP2. 

Vendo Spectravídeo SV328, 
super expander 605B, en ga- 
rantía, CP/M y Basic Disco, 
cassette, revistas y programas, 
por 200.000 pts. Monserrat 
Sala. - Tel. (93) 427 39 50. 
CP2. 

Intercambio o vendo progra- 
mas MSX. Poseo Zaxxon, 
Ghostbusters, Manic Miner, 
etc. y programas de gestión. 
José M 1 López Herrera, c/. 
Montoya 1,1" A, Alcantarilla 
(Murcia). CP2. 
Desearía intercambiar pro- 
gramas, dudas, inquietudes 
con todos los usuarios de 
MSX de mi localidad. Ana 
María Zambudio Ortiz. B." 
Providencia, 9 - ARCHA- 
NA (Murcia) Ref. CP.3. 
Intercambio programas y 
experiencias con el MSX. Luis 
Marco Giménez, el . de la Di- 
putación, 5 - SILLA (Valen- 
cia) Ref. CP.3. 

Intercambio programas MSX 
en código máquina. José 
Ochoca Mateo. Recinto Esta- 
ción, bloque G. 1" I a Reus 
(Tarragona). CP3. 
Cambio cartuchos y progra- 
mas MSX. Juno, First, Track 
& Field, Mouser, etc. Fernan- 
do Algar Alarcón, Av. Sta. 
Coloma 91, 7" 2'. Barcelona. 
CP3. 

Envíanos los programas en 
una cinta y la recibirás cargada 
con otros nuevos. Tenemos 
los mejores. Héctor y Guillem 
Carreras. Vía Augusta 320- 
322-2" 3' - 08017 Barcelona. 
CP3. 

Intercambio programas de 
juegos. Poseo 15 de los mejo- 
res. Javier Encisa de Sá. Av. 
Gragoso 98 8." D. Vigo (Pon- 
tevedra). Ref. CP3. 
Intercambio programas Zax- 
xon, Manic Miner, Decathlon, 
Simulador de vuelo, etc. hasta 
18, por un cartucho de am- 
pliación de memoria de 64K. 
Javier Vila Lugo. París 5, 6, 3." 
C. Torreión de Ardoz (Ma- 
drid). Ref. CP3. 
Compro cintas con progra- 
mas comerciales para MSX. 
Víctor Manuel Gándaras, c/ 
Mesón de Paredes, 17, Madrid 
28017 - Ref. CP3. 
Intercambio programas MSX 
y dudas con usuarios de mi 
localidad. Podríamos formar 
un club. Antonio del Olmo 
Pina. Avda. Dr. Rico 27 Esc. 3 
6."D. Alicante. Ref. CP3. 
Intercambio programas de 
todo tipo del MSX. Jorge La- 



fuente Bartra. Tel. (93) 333 45 
36 - Barcelona. Ref. CP3. 
Intercambio programas MSX 
(Zaxxon, Manic Miner, De- 
cathlon, etc.) Juan L. Balsera. 
Tel. 42 25 10 (15 a 18 hs.) Se- 
villa. Ref. CP3. 
Intercambio programas de 
juegos y de gestión. Poseo 
primeros títulos del mercado. 
José María Martínez Carrasco 
- Tel. (968) 25 88 78 - Murcia. 
Ref. CP3. 

Vendo consola Philips Video- 
pac G7000 y siete cartuchos 
por 20.000 pts. Benito Martí- 
nez Fernández - Colonia del 
Quirinal 3, 1." Iqda. Avilés 
(Asturias). Ref. CP3. 
Cambio-vendo programas 
MSX. Más de 60 títulos. An- 
drés Blanco Baúle - Aparisi 
11,2.", l.'-Sabadell (Barcelo- 
na). Ref. CP3. 

Contacto con otros usuarios 
de MSX. Feo. Morón - Calle 
Rávena 1, Las Portadas 2.' 
Fase - Dos Hermanas (41000 
Sevilla). Ref. CP3. 
Intercambio programas MSX. 
Javier. Tel. (986) 20 93 37 - 
Vigo (Pontevedra) de 15,30 a 
16,30 o de 21,30 a 23 hs. Ref. 
CP3. 

Intercambio o vendo juegos, 
programas de gestión y edu- 
cativo. Fdo. Rodríguez Llues- 
ma. Avda. Doctor Gadea, 24, 
7." A - 03001 Alicante. Ref. 
CP3. 

Intercambio juegos MSX. 
Enviar lista. Prometo respon- 
der. Raúl Bosque. Calle Bar- 
celona, 23. TREMP (Lérida). 
CP3. 

Intercambio programas de 
juegos y de gestión MSX. Jor- 
ge Hernández. Churruca, 16 
Dcha 14 - Puerto de Sagunto 
(Valencia). Tel. (96) 247 55 84. 
CP3. 

Intercambio programas e in- 
formación de SV 328/SV318. 
Feo. Javier Montero de la 
Cruz c/. Aña n." 91 7" 2'. 28050 
Madrid. Tel. 202 75 76. CP3. 
Contacto con usuarios MSX 
de Alcorcón, para intercam- 
bio ideas, experiencias y pro- 
gramas. José L. Rojano. c/. 
Camarro n." 2 7" D - Tel. 61 9 1 6 
29. Alcorcón (Madrid). CP3. 
Envíame tus programas en un 
cassette y te lo devuelvo con 
los míos si tienes un Spectra- 
vídeo 328. José E. Fortó c/. 
San José de Calasanz 1 7, Seo 
de Urgel (Lérida). CP3. 
Intercambio programas MSX. 
Primeros títulos del mercado. 
Manuel Fernández Alonso, de 
13,30 a 15 o 21,30 a 23 hs. Tel. 
(986) 23 51 27. Vigo (Ponteve- 
dra). CP3. 

Contacto con chicas y chicos 
de Barcelona para intercambio 
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programas MSX. Fernando 
(93)386 30 19. De 8,30 a 10,30 
noche. CP3. 

Cambio y vendo programas 
para MSX y SPECTRA VI- 
DEO 328/318. Rubén Soto de 
Roca. c/. Teruel, 4 - TUDE- 
LA DEL DUERO (Vallado- 
lid) Tel. (983). 52 13 80. Ref. 
CP.3. 

Cambio, compro y vendo to- 
da clase de programas para 
SPECTRAVIDEO 328/318 y 
también para el estándar 
MSX. Compro instrucciones 
de programas en castellano. 
Vendo libro PROGRAMA- 
CION AVANZADA SPEC- 
TRAVIDEO de Indescomp. 
Tengo muchos programas 
OLD MAC FARMER, 
SPECTRON, etc. Prometo 
contestar a todos. Oscar Mar- 
tín Martín, c/. Huesca, 16 - 
TUDELA DEL DUERO 
(Valladolid) Ref. CP.3. 
Intercambio programas de 
MSX. Poseo 22 de los mejo- 
res. Me interesan de aplica- 
ción. Javier Leza Cuervas- 
Mons. c/. Ramón y Cajal, 21 - 
38004 Santa Cruz de Tenerife 
(Canarias) Ref. CP.3. 
Intercambio programas de 
MSX. Tengo entre otros, 
Blagger, Disc Warrior, River 
Raid, Beamrider, Samurai, 
Ninja, Pinball. Diego Sánchez 
Montoya. c/. Montoya, 1 - 
ALCANTARILLA (Murcia) 
Tel. (968) 80 43 30. Ref. CP.3. 
Mándanos tus programas en 
una cinta y la recibirás cargada 
con otros nuevos. Tomas Eis- 
man Domenech. el . Atillo, 19 
- 14009 Córdoba. Ref. CP.3. 
Usuarios de SPECTRAVI- 
DEO 728 o MSX en general, 
agradeceríamos contacto para 
intercambiar programas, ideas. 
Soto, Blach, Arribas - Central 
Telex, Telégrafos, Plaza del 
País Valenciano - 46002 Va- 
lencia. Ref. CP3. 
Intercambio cartucho Alí- 
Babá y otros. José M. Váz- 
quez, c/. Entrepeñas, 42 - La 
Coruña - Tel. (981) 25 26 87. 
Ref. CP.3. 

Para los usuarios de Cuenca. 
El club infantil OCIO MSX 
creado en julio de este año, 
pretende poner en contacto a 
los usuarios de este estándar. 
Dirigirse a Mariano Delgado 
García, c/. Hermanos Bece- 
rril, 3. Cuenca. Tel. (966) 
22 26 68. Ref. CP.3. 
Intercambio programas del 
sistema MSX. Alberto Cama- 
cho Fernández, c/. Nafarroa, 
15, 6." P. Basauri. Vizcaya. 
Ref. CP.3. 

Desearía intercambiar pro- 
gramas, dispongo de más de 
50. José Ignacio Nasarre. c/. 
Franco y López, 1 1 - 50005 
Zaragoza. Tel. (976) 35 61 77. 
Ref. CP.3. 

Intercambio programas, du- 
das, inquietudes con usuarios 
MSX. José Atxurra Par. Itu- 
rribide, 2-5." E. 48006 Bilbao. 
Ref. CP3. 



Intercambio programas. Zax- 
xon, Manic Miner, Les Flics, 
Congo Bongo y Shark Hunter 
por El Samurai, Gosthbuster, 
Beamrider o Decathlon. Javier 
Vila Lugo - París 6, 3/C To- 
rrejón de Ardoz (Madrid). 
Ref. CP3. ' 

Intercambio programas He- 
ro, Keystone Kaspers, Polar 
Star, etc. y aparecidos en esta 
revista. José Corrales-Av. de 
Cortés, 22, 1." Aptdo. 
59-Ubrique (Cádiz). Ref. 
CP3. 

Cambio cartucho de ROM 
Step-Up por Edyll, Billar, 
Antartic Adventure, Tenis, 
Crazy Train, etc. Cristóbal 
Martín Basoa-Villa Soledad, 
28-30, 2." izq. El Ferrol. - Ref. 
CP3. 

Contacto, con otros usuarios 
de MSX para formar un club e 
intercambiar ideas y progra- 
mas. José L. Fernández Av. 
Fdez. Ladreda, 58, 6." Gijón 
(Asturias) - CP3. 
Intercambio programas MSX. 
Poseo Booga, Hunch, Jetset 
Willy, Almacén, Databa, etc. 
José Manuel Vera Vilchez, 
Escritor José de las Heras, 3, 
Córdoba 14014 - Ref. CP3. 
Intercambio ideas y progra- 
mas. Javier Iniesta. Av. Ntra. 
Sra. Fátima 27, Madrid 28047. 
Ref. CP3. 

Vendo ordenador Spectraví- 
deo SVI318 con cassette 
SV904, nuevo, por 29.900 pts. 
y siete cassettes y un cartucho. 
También consola Philips Vi- 
deopac G7000 por 14.900 pts. 
más un cartucho de regalo. 
Juan Carlos Moya Castillo. 
Maresma n." 32 Terrasa (Bar- 
celona) - Ref. CP3. 
Intercambio cintas. Tu me 
envías una cargada con unos y 
te la devuelvo con otros dife- 
rentes. F. Escribano Zamora- 
no. Av. 1 ." de Mayo 1 1 , 6." 4% 
La Llagosta (Barcelona) - Ref. 
CP3. 

Consulta e intercambios con 

usuarios del MSX. Club Ami- 
gos de la Salud «Progreso 
Real» c/ Real 103, Bechi (Cas- 
tellón)- Ref. CP3. 
Cambio juegos Spectravídeo 
318/328 y de MSX. Ángel 
Buendía. Llamar al (91) 
676-52-19. Ref. CP3. 
Vendo cartuchos MSX. Uni- 
dad 3200 pts., dos 6000 pts. 
Llamar de 2 1 hs. en adelante al 
Tel. (954) 37-54-28 de Sevilla, 
José Antonio Cárcamo Teno- 
rio. Ref. CP3. 

Vendo consola Atari y 1 1 car- 
tuchos por 25.000 pts. Llamar 
a los Tel. 650 1 1 71 ó 650 12 
75 de El Soto de la Moraleja, 
Alcobendas (Madrid). Fer- 
nando Conyte. Ref. CP3. 
Vendo videojuegos Intellivi- 
sión más tres cartuchos por 
5000 pts. Aitor Guisasofa - 
Tel. (94) 469 29 31 - CP3. 
Contacto con usuarios del 
Toshiba T-100 para ofrecer 
programas de gestión y usua- 
rios de MSX. CP3. 



GRAN CONCURSO 

BOOGA 
BOQ 



¡Haz saltar la pulga hasta 
lo más alto y podras ganar 
hasta 125.000 pts. en pre- 
mios! 

MSX CLUB DE PRO- 
GRAMAS y MIND GA- 
MES ESPAÑA, S.A. te des- 
afían a que juegues con Boo- 
ga Boo y ganes. Booga Boo 
es una simpática pulga salta- 
riña que cierto día cae a las 
profundidades de una cueva 
habitada por un peligroso 
dragón y plantas carnívoras. 
Tú, no solo tienes que sor- 
tear estos obstáculos, sino 
llevar a Booga Boo a la su- 
perficie superando los 80 ni- 
veles de que consta el juego 
y logrando la máxima pun- 
tuación. ¿Te animas? 

Bases 

1. Para participar remítenos: 

a) Una fotografía de la últi- 
ma pantalla de Booga Boo. 

b) Una fotografía del ta- 
blero de puntuación con tu 
nombre en el primer lugar. 

c) Al dorso de ambas fotos 
coloca tu nombre, direc- 
ción, teléfono y el número 
de referencia de Mind Ga- 
mes España, S.A., editor 
autorizado de Booga Boo 
en versión MSX para Es- 
paña, que figura en la cará- 
tula original. 

2. El ganador será el que 
obtenga mayor puntuación. 

3. En caso de ftaber más de un 
concursante con la máxima 
puntuación, el ganador se 
sorteará entre ellos. 

4. El premio al ganador con- 
sistirá en 125.000 pts. en 
software de Mind Games 
España S.A. y material di- 
dáctico de informática MSX. 




5. Todos los concursantes re- 
cibirán un regalo por su 
participación. 

6. El concurso caduca el día 
31 de enero de 1986. 

7. Quedan excluidos de parti- 
cipar en este concurso los 
empleados, agentes y fami- 
liares de los mismos de Quick- 
silva Ltd., Argus Specialist 
Publications, AJabaster Pass- 
more & Sons, Mind Games 
España, S.A., Ivex Films, 
S.A. y Manhattan Transfer, 
S.A. 

8. La participación implica la 
aceptación de las presentes 
reglas. 

9. Las decisiones de MSX 
CLUB DE PROGRAMAS 
serán inapelables y no se 
mantendrá corresponden- 
cia con los concursantes. 

10. Remite el sobre a: 

MSX CLUB DE 
PROGRAMAS 
CONCURSO 
BOOGA BOO 
Roca i Batlle 10-12 
Barcelona 08023 



_ 



¡¡GANA 125.000 pts.!! 



Programas 



iPor Francisco J. Viceirai 



ASALTO A 
LA FORTALEZA 



Un divertido juego que con- 
siste en asaltar una fortaleza 
fuertemente defendida. Cla- 
ro que también puedes optar 
por ser el defensor en lugar 
del atacante. 




1 000 ' ************************* 

1010 ** * 

1020 '* ASALTO A LA FORTALEZA * 

1030 '* * 

1040 '* POR J. UICEIRA * 

1050 '* * 

1060 ************************** 

1070 SCREEN 1,0:WIDTH 31 :COLOR l,7,l:CLS 

:KEY OFF 

1080 ON STOP GOSUB 3120:STOP ON 
1090 GOSUB 2870 

1 100 A$=CHR$C2253+CHR$C2243+CHR$C2253+CH 
R$ C 224 3 

1110 LOCATE 7.4-PRINT CHR$C2243+A$ ;SPCC6 
3 :A$+CHR$C2253 

1 120 A$=CHR$C21 1 3+CHR$C213 3+CHR$C21 1 3+CH 
R$ C 2 1 3 3 

1130 LOCATE 7.5:PRINT CHR$C2133+A$+"ASAL 
TO"+A$+CHR$C2113 

1 140 A$=CHR$C2333+STRING$C 14. 232 3+CHRSC2 
34] 

1150 FOR 1=6 TO 10-LOCATE 7, I :PRINT A$:N 
EXT I 

1160 LOCATE 8,12-PRINT "POR J. UICEIRA'" 
1170 FOR 1=1 TO 500 

1180 LOCATE 5,15:PRINT "Tienes dos oo C o 
nes : " 

1190 LOCATE 3,17:PRINT "1.- Defender la 
f prtáleza." 

1200 LOCATE 3.19:PRINT "2.- Asalta^ ; A f 

ortdleZd" 



1210 LOCATE 7.21 :PRINT "¿Cuál pref ¡eres^ 

1220 C$=INKEY$ 

1230 IF C$="" THEN 1220 

12^0 ir ASCCC$3<49 OR ASCCC$3>50 THEN 12 
20 

1250 C=UALCC$3 

1260 ON C GOSUB 1270.2010 

1270 GOSUB 2660 

1280 LOCATE 4.15:' :> RINT "Defiende La 'o^i 
aleza" 

1290 LOCATE 4.16:PRINr "del ataque ae un 
a "nasa" 

1300 LOCATE 5.17:PRINT "de endemoniados. 
Usa" 

1310 LOCA T E -2..18:PRINT "el cursor y el e 
spac I ado r> . "' 

1320 FOR 1=1 TO 1000:NEXT I 

1330 LOCA"T_ 9.20:PRINT " i i ADEL ANTE ! S " 

13^0 FOR 1=1 TC 300:NEXT I 

1350 I =RNDC -T I riE 3 

1360 Din X%C123.Y*f 1 2 J . C 1 2 D 

1370 UV-5:SCS=0:L*=1 

1380 m~120:N*=40 

1390 CLS:GOSUB 2740 

1400 FOR 1=1 TO 12 

1410 XÍC 1 3 = 1*16+16 

1420 SU I3=RNDC13*2 

1430 YSíC 1 3 = 160 

1440 NEXT . I 

1450 ON STRIG GOSUb 1530 
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1460 üN SPRITL GOSUB 1750 
1470 FOR 1=1 Tü 12 

1480 PUT SPRITE I, CXtCÍ3* YSCIDD. 15.SSCID 
1490 NEXT I 

1500 SPRITE ON:STRIGC0D ON 

1510 GOSUB 1590 

1520 GOTO 1510 

1530 STRIGC0D OFF 

1540 FOR B*=48 TO 160 STEP 8 

1550 PUT SPRITE 0, CZ*. BSD, 5, 4 

1560 GOSUB 1610 

1570 NEXT BS 

1580 STRIGC0D ON :RETURN 

1590 zs=ms 

1600- PUT SPRITE 0, CZS.NS-8D,5,4 
1610 PUT-SPRITE 15, CMS.NSD, 1,2 
1620 FOR 1=1 TO LS 
1630 WS=RNDC1D*12+1 

1640 yscuisd=yscuisd-4:sscusd=-sscwsd+i 

1650 PUT SPRITE W¿, CXSCWSD . YSCWSD D . 15, SS 
CtüSD 

1660 IF YSCWSD <42 THEN GOSUB 1860 

1670 NEXT I 

1680 STS=STICKC0D 

1690 ON St* GOTO 1700,1700,1710,1700,170 
0, 1700, 1730 
1700 RETURN 

1710 IF MS>=216 THEN RETURN 

1720 MS=MS+4: RETURN 

1730 IF MS<=24 THEN RETURN 

1740 MS=MS-4 :RETURN 

1750 SPRITE OFFrBEEP 

1760 FOR QS=1 TO 12 

1770 IF XííCQÍíD <Z5í+6 AND XSCQSD>ZS-6 THEN 
1790 

1780 NEXT QS:RETURN 
1790 YSCQSD=160 

1800 PUT SPRITE QS. CXSíCQ^D , 160D , 15. SSCQSD 
1810 QS=12:NEXT QS:BS=160 
1820 SCS=SCS+10 

1830 LOCATE 9, 1 :PRINT USING"####" :SCS 
1840 IF SCS>=LS*500 THEN LS=LS+1 :US=US+1 
:RETURN 1380 

1850 SPRITE ON:STRIGC0D ON :RETURN 
1860 STRIGC0D OFF : SPRITE OFF 
1870 I=LS 

1880 FOR 1=1 TO 15 
1890 SSCU)SD=-SSCUJSD + 1 

1900 PUT SPRITE WS. CXSCUJSD.40D, I,SSCUSD 
1910 FOR J=l TO 50:NEXT J 
1920 NEXT I 

1930 PUT SPRITE US, CXSCLISD . 40D , 15, 3 
1940 FOR J=l TO 500:NEXT J 
1950 US=US-1 

1960 IF US>0 THEN RETURN 1380 

1970 LOCATE 28. 1 :PRINT "0" 

1980 LOCATE 9,2l:PRINT "JUEGO ACABADO" 

1990 FOR 1=1 TO 1500:NEXT I 

2000 CLS:RUN 

2010 GOSUB 2660 

2020 LOCATE 3,15:PRINT "Penetra en la fo 
rtaleza" 

2030 LOCATE 3,16:PRINT "escalando sus mu 
nal las . " 

2040 LOCATE 8,17:PRINT "Usa el cursor" 

2050 FOR 1=1 TO 1000:NEXT 

2060 LOCATE 9,20:PRINT "¡¡ADELANTE !!" 

2070 FOR 1=1 TO 300: NEXT 

2080 US=5:I=RNDC-TIMED 

2090 LS=l:QS=60 



2100 MS=120:NS=40:TS=QS 

2110 XS=120:YS=160:SS=RNDC1D*2 

2120 CLSrGOSUB 2740 

2130 ON SPRITE GOSUB 2490:SPRITE ON 
2140 ON INTERUAL=50 GOSUB 2400 : INTERUAL 
ON 

2150 PUT SPRITE 0, CMS, NS-8D , 5. 4 
2160 PUT SPRITE 2, CMS*, NSD , 1 , 2 
2170 IF MS=XS THEN GOSUB 2220 
2180 IF MS>XS THEN MS=MS-LS 
2190 IF MS<XS THEN MS=MS+LS 
2200 GOSUB 2270 
2210 GOTO 2150 

2220 FOR BS=48 TO 160 STEP 2 

2230 PUT SPRITE 0, CMS. BSD , 5, 4 

2240 GOSUB 2270 

2250 NEXT BS 

2260 RETURN 

2270 STS=STICKC0D 

2280 ON STS GOTO 2310,2300,2340,2300,236 
0,2300,2380 

2290 PUT SPRITE 1 , CXS . Y*} , 15, SS 

2300 RETURN 

2310 YS=YS-1 :SS=-SS+1 

2320 IF YS<42 THEN GOSUB 2550 

2330 GOTO 2290 

2340 IF XS>=216 THEN RETURN 

2350 XS=XS+1 :GOTO 2290 

2360 IF YS>=160 THEN RETURN 

2370 YS=YS+1 :SS=-SS+1 :GOTO 2290 

2380 IF XS<=24 THEN RETURN 

2390 XS=XS-l:GOTO 2290 

2400 TS=TS-1 

2410 LOCATE 9, 1 :PRINT USING "###" :TS 

2420 IF TS<=0 THEN 2440 

2430 RETURN 

2440 INTERUAL OFF 

2450 LOCATE 8. 3 :PRINT"FUERA DE TIEMPO" 
2460 FOR 1=1 TO 1000:NEXT I 
2470 US=US-1 

2480 IF US>0 THEN RETURN 2100 ELSE 1970 

2490 SPRITE OFF: INTERUAL OFF 

2500 FOR BS=YS+4 TO 160 

2510 PUT SPRITE 1 . CXS. BSD . 15, 2 

2520 PUT SPRITE 0, CMS, BS-10D ,5,4 

2530 NEXT BS 

2540 GOTO 2460 

2550 INTERUAL OFF:SPRITE OFF 
2560 FOR 1=1 TO 15 
2570 SS=-SS+1 

2580 PUT SPRITE 1 . CXS. 40D . I , SS 
2590 FOR J=l TO 50:NEXT J 
2600 NEXT I 
2610 US=US+1 

2620 IF LS<4 THEN LS=LS+1 

2630 IF QS>40 THEN QS=QS-10 

2640 FOR 1=1 TO 1000:NEXT I 

2650 RETURN 2100 

2660 LOCATE 13, 1 :PRINT " r— i " 

2670 LOCATE 13,2:PRINT " |" :RIGHT$CSTR$CC 

D , 1 D : " [ " 

2680 LOCATE 13.3:PRINT "' — '" 

2690 FOR 1=15 TO 21 STEP 2 

2700 FOR J=3 TO 27 

2710 LOCATE J, I :PRINT CHRSC32D 

2720 NEXT J,I 

2730 RETURN 

2740 LOCATE 2,1 

2750 IF C=l THEN PRINT USING "PUNTOS ### 
#" ¡SCS 



1 



1 



Programas 



4ie ir mo«CP«. i.iwo" on iiidkp» 




OSCfniDtfPt. I. i ))-64)<>8ThEN «5 



2760 IF C=2 THEN PRINT USING "TIEriPO ### 
" IJX 

2770 LOCATE 22, 1 ¡PRINT USING "UIDAS #" íU 
X 

2780 A$=CHR$C224D 

2790 FOR 1=1 TO 13 : A$=A$+CHR$C225!)+CHR$C 
224D :NEXT I 

2800 LOCATE 2,4:PRINT A$ 
2810 A$=CHR$C213D 

2820 FOR 1=1 TO 13 : A$=A$+CHR$C21 1D+CHRSC 
213D:NEXT I 

2830 LOCATE 2.5:PRINT A$ 

2840 A$=CHR$C233D+STRING$C25, 232D+CHRSC2 
34D 

2850 FOR 1=6 TO 20:LOCATE 2, I :PRINT A$:N 
EXT I 

2860 RETURN 
2870 RESTORE 

2880 FOR 1=0 TO 4:SP$="" 

2890 FOR J=l TO 8 :READ A$ 

2900 SP$=SP$+CHR$CUALC"8»H ,, +A$DD :NEXT J 

2910 SPRITE$Cn=SP$:NEXT I 



2920 FOR 1=1792 TO 1807:READ A$ 
2930 UPOKE I,UALC'W+A$D :NEXT I 
2940 FOR 1=1856 TO 1879:READ A$ 
2950 UPOKE I,UALC"&H"+A$D :NEXT I 
2960 UPOKE 8218, &H76 
2970 UPOKE 8220. &H67 
2980 UPOKE 8221.&H6A 
2990 RETURN 

3000 DATA 58,58.24, la, la, 24, 24, 66 
3010 DATA la. la. 24. 58, 58, 24, 24, 66 
3020 DATA 5a, 5a. 24, 18, 18, 24, 24. 66 
3030 DATA 18. 18, 24.5a. 5a. 24. 24. 66 
3040 DATA 00, 00. 00. 38. 7e . f f . f f . 7e 
3050 REM 

3060 DATA 00,00,00,c0.e0.f 0,f8,f c 
3070 DATA 00, 00. 00, 03. 07. 0f . lf , 3f 
3080 REM 

3090 DATA 01, 01,01, ff , 10, 10, 10, ff 

3100 DATA 81, 81, 81, ff ,90, 90,90, ff 

3110 DATA 01, 01. 01, f f , 11, 11, 11, f f 

3120 SCREEN 0:UIDTH 38:CLS:LIST 1000-106 

0:END 



TEST DE LISTADOS. Para usar el Test de Listado que publicamos al final de cada programa debe cargarse el program, 
correspondiente publicado en nuestro número 7 del mes de noviembre, pág. 28. 



Test de Listados 



Asalto a la Fortaleza 



1000 
1010 
1020 
1030 
1040 
1050 

1060 

1070 
1080 

1090 

1100 
1110 

1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 



- 58 

- 58 

- 58 

- 58 

- 58 

- 58 

- 58 
-113 

- 91 
-220 
-125 
-232 

- 75 

- 37 
-103 
-152 
-179 
-182 
-143 
-133 

- 51 
-191 

- 66 
-213 

- 41 
-125 
-136 

- 9 
-239 
-172 



1320 


-178 


1640 


- 52 


1960 


-228 


2280 


- 50 


1330 


- 42 


1650 


-239 


1970 


-128 


2290 


- 30 


1340 


-244 


1660 


-191 


1980 


-166 


2300 


-142 


1350 


-205 


1670 


-204 


1990 


-168 


2310 


-253 


1360 


-149 


1680 


-190 


2000 


- 99 


2320 


-166 


1370 


- 33 


1690 


- 34 


2010 


- 9 


2330 


-145 


1380 


-187 


1700 


-142 


2020 


-124 


2340 


- 52 


1390 


- 50 


1710 


- 41 


2030 


-218 


2350 


-183 


1400 


-192 


1720 


-161 


2040 


-228 


2360 


-253 


1410 


-113 


1730 


-107 


2050 


-105 


2370 


-199 


1420 


-241 


1740 


-162 


2060 


- 42 


2380 


-118 


1430 


-182 


1750 


-172 


2070 


-171 


2390 


-184 


1440 


-204 


1760 


-237 


2080 


-135 


2400 


-229 


1450 


-209 


1770 


-226 


2090 


- 92 


2410 


- 64 


1460 


-211 


1780 


-193 


2100 


-211 


2420 


-109 


1470 


-192 


1790 


-227 


2110 


-218 


2430 


-142 


1480 


- 35 


1800 


- 65 


2120 


- 50 


2440 


-153 


1490 


-204 


1810 


-242 


2130 


- 80 


2450 


- 10 


1500 


- 47 


1820 


-111 


2140 


-244 


2460 


-178 


1510 


-215 


1830 


-165 


2150 


-167 


2470 


-233 


1520 


-130 


1840 


-167 


2160 


-152 


2480 


- 89 


1530 


-239 


1850 


-247 


2170 


-146 


2490 


-133 


1540 


-148 


1860 


-219 


2180 


-120 


2500 


-228 


1550 


-157 


1870 


-169 


2190 


-121 


2510 


-162 


1560 


-235 


1880 


-195 


2200 


-129 


2520 


-155 


1570 


-234 


1890 


-110 


2210 


- 5 


2530 


-234 


1580 


- 97 


1900 


- 6 


2220 


-142 


2540 


- 60 


1590 


-224 


1910 


-238 


2230 


-144 


2550 


-133 


1600 


-180 


1920 


-204 


2240 


-129 


2560 


-195 


1610 


-163 


1930 


-170 


2250 


-234 


2570 


-212 












-142 


2580 





2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
>900 

110 



-204 
-232 
-175 
-230 
-178 
-216 

- 76 
-224 

- 82 
-196 
-210 

- 87 

- 66 
-142 

- 41 
-205 

- 78 
-126 

- 41 

- 71 

- 92 

- 30 

- 46 

- 93 
-114 
-157 
-142 
-140 
-237 
-229 

- 71 

- 65 



2920 


-214 


2930 


- 45 


2940 


-150 


2950 


- 45 


2960 


-170 


2970 


-157 


2980 


-161 


2990 


-142 


3000 


- 84 


3010 


- 84 


3020 


- 84 


3030 


- 84 


3040 


- 19 


3050 


- 


3060 


-253 


3070 


-104 


3080 


- 


3090 


-150 


3100 


-198 


3110 


-153 


3120 


-103 



TOTAL: 
29942 
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MSX por dentro 



iPor Federico J. Alonso 



HAGAMOS 
COMPATIBLES LOS 

SVI 318/328 



Los Spectra vídeo SVI 318 y 
SVI 328 son parcialmente com- 

Í >atibles con los ordenadores de 
a norma MSX. Algunas ins- 
trucciones pueden ser «tra- 
ducidas» y de este modo hacer 
que muchos programas MSX 
puedan ser utilizados por los 
usuarios de los primitivos 
«Spectra». 




Ha pasado ya bastante tiempo 
desde que fue anunciado en el 
mercado nacional la existencia 
de un periférico para los modelos 
SVI-328 y 318 de Spectravideo que los 
adaptaría a la norma MSX. Este perifé- 
rico tiene incluso un nombre asignado: 
«SVI-606 ADAPTADOR MSX», pero 
hasta el momento no ha sido puesto a la 
venta. La ansiada espera de este adapta- 
dor por más de un usuario de Spectra- 
video no parece que vaya a tener un fin 
próximo. 

De momento y para que podáis te- 
clear y disfrutar de cualquiera de los 
programas de esta revista, aquí va este 
artículo que os explicará los pormeno- 
res para que vosotros, los usuarios de 
SVI-328 y 318, lo logréis. 

Cabe recordar que el standard MSX 
tiene por base de su diseño y construc- 
ción los modelos 328 y 318 de Spectra- 
video, y que por ello la transcripción 
desde los MSX a aquéllos no es ningún 
trabajo de chinos (ni de japoneses), co- 
mo podréis comprobar. 

Al parecer, en un principio los MSX 
y los SVI-328 y 318 tenían que ser una 



misma cosa y razones de distinto signo 
dieron al traste con tal propósito, sien- 
do entonces cuando diseñaron el stan- 
dard MSX, que desde el punto de vista 
de hardware es sorprendentemente pa- 
recido a los SVI. 

Para facilitar la tarea de la compatibi- 
lización en gran medida, he desarrolla- 
do un programa en código máquina 
gracias al cual en el modo de alta reso- 
lución (SCREEN 2 en los MSX), se 
puede emular, sin cambiar ni tan si- 
quiera uno solo de los comandos gráfi- 
cos en el modo de alta resolución de los 
SVI, SCREEN 1. 

Este programa que ha de ser cuida- 
dosamente tecleado y después ejecutar- 
lo; tened una cinta virgen a mano y 
cuando os salga el mensaje: «Press re- 
cord & ...» ponéis la cinta y lo grabáis. 
Si no os equivocáis en el proceso ten- 
dréis un programa en código máquina 
en la cinta. Apagad el ordenador, en- 
cenderlo rebobina la cinta y teclea: 
BLOAD «SVIMSX», R y enter. Una 
vez hecho esto último vuestro SVI-328 
o 318 estará preparado para funcionar. 



Podéis trabajar con toda normalidad y 
cargar en cinta los programas que reali- 
céis. Eso si, antes ae coger de una cinta 
un programa c\ue hayáis escrito con el 
programa en código máquina en la me- 
moria del ordenador, tendréis que te- 
ner previamente cargado el programa 
en cod. máquina en Ta memoria. 

Todos los comandos e instrucciones 
del Basic-E de los MSX, están implan- 
tados en los SVI, poseyendo la misma 
sintaxis, a excepción ele unos pocos, 

§ue quedan reducidos a los especifíca- 
os en la tabla A al trabajar con el pro- 
grama en cod. máquina ya cargado. 
Como podéis ver las variaciones están 
en el apartado de gráficos. 

Los comandos a modificar del Basic- 
E son los siguientes: 
BASE(n): este comando no está imple- 
mentado en los SVI. Dicho coman- 
do se utiliza como si fuera una va- 
riable y sirve para conocer y/o va- 
riar la dirección de inicio de las 
distintas tablas gráficas de la VRam. 
Las tablas tienen la primera direc- 
ción fijada al encender el ordenador 
por la ROM, estas comienzan ca- 
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sualmente, en los SVI en las mismas 
direcciones al encender el ordena- 
dor, según está reflejado en la tabla 
B. Si a lo largo de un programa se 
encuentra: BASE(n)=valor, implica 
que se varía el comienzo de la tabla 
enésima. Esta opción es raramente 
utilizada y su transcripción se expli- 
cará cuando hablemos del chip de 
video. 

VDP(n): este comando tampoco está 
implementado en los SVI. Sirve para 
leer y escribir en los registros del 
chip de video que controla la Vram 
y su reflejo en la pantalla del TV o 
del monitor. Este chip se denomina 
abreviadamente VDP, iniciales de 
Video Display Processor. Para saber 
el valor de uno de los registros utili- 
za la sintaxis variable = VDP(n° de 
registro!, quedando dicho valor en 
la variable. Los valores están com- 
prendidos entre y 225, y el n° de 
registros entre y 7. En los SVI se 
pueden emular las funciones de este 
comando por medio de instruccio- 
nes OUT port, INP (port) y «po- 
keando» en la memoria. Así en los 
MSX, PRINT BIN$(VDP(7)) nos 
da el valor en binario del registro 
siete del VDP. Si tomamos los cua- 
tro primeros bits aisladamente vere- 
mos que su valor es el del color de 
tinta que haya en la pantalla, y los 
cuatro últimos bits son el valor del 
color de papel. Es decir, si teclea- 
mos: COLOR 15,1, y seguidamente 
PRINTBIN$(VDP(7)), obtendre- 
mos el número en binario 11110001 
(&B1111 = 15 en animal y &B0001 
= 1 en decimal). Y en los SVI basta- 
rá teclear PRINTPEEKÍ&HFA- 
OA) para obtener el color de tinta y 
PRINTPEEK(&HFAOB) para ob- 
tener el color del papel. Sin embargo, 
dejamos el resto de esta información 
para posteriores artículos en los que 
hablaremos del funcionamiento y 
programación del chip de vídeo, y 
así poder explicar su emulación en 
los SVI. 

WIDTHn: ejecutando este comando 
en los MSX logramos decidir con 
cuantos caracteres vamos a trabajar 
por línea, que además quedarán au- 
tomáticamente centrados. El valor n 
puede estar comprendido entre 1 y 
40, ambos inclusive, y hasta 80 si se 
utiliza un cartucho de 80 columnas. 
Este comando existe en los SVI, pe- 
ro sólo se puede elegir entre 39 o 40 
caracteres por línea, (80 con el co- 
rrespondiente cartucho). Sin embar- 
go, gracias al programa en código 
máquina podemos también teclear 
de 1 a 40 caracteres utilizando el co- 
mando como en los MSX, aunque el 
texto aparecerá justificado a la dere- 
cha y no centrado como en los 
MSX: 

SCREEN„n: este comando activa, si 



n=l, el click que se oye al pulsar una 
tecla en los MSX, y desactiva este 
sonido si n=0. En los SVI la ins- 
trucción SCREEN solo acepta dos 
parámetros, el primero que será el 
modo de pantalla y el segundo que 
selecciona el tamaño de los sprites, 
un tercer parámetro genera un Sin- 
tax error. En un SVI basta teclear en 
su lugar CLICK ON, para activar 
dicho sonido y CLICK OFF para 
que no suene. 
SCREEN,, ,n: si n vale 1 se selecciona 
la grabación al cassette a 1200 bau- 
dios, si n vale 2 se selecciona la gra- 
bación a 2400 baudios, si n vale 2 se 
selecciona la grabación a 2400 bau- 
dios. En los !SVI no existe un co- 
mando que realice esta función pero 
creemos que es posible esta varia- 
ción aunque no hemos encontrado 
el modo de hacerlo aún. Recordad 



que los SVI trabajan a 1200 baudios. 
OPEN«GRP :»... : abre un fichero para 
sacar caracteres en los modos de alta 
y baja resolución, para los SVI 
sólo hay que cambiarlo por 
OPEN«CRT:».. 

Los comandos anteriormente descri- 
tos son independientes del modo de 
pantalla en que se utilicen por lo que 
respecta a su compatibilización. Ahora 
veremos como trabajan los cuatro mo- 
dos de pantalla en los MSX y su emula- 
ción en los SVI con la utilización del 
programa en código máquina. Si no se 
utilizase este programa la cosa quedaría 
un poco liada. 

SCREEN = SCREEN en SVI. Tra- 
bajando en este modo de texto po- 
déis teclear los programas tal cual 
los encontréis escritos para los 
MSX, teniendo en cuenta la tabla A 
por supuesto. Es importante con- 
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trolar en qué modo trabaja cada área 
del programa. 

SCREEN 1 = SCREEN 1 en SVI. En 
este modo de pantalla los MSX tra- 
bajan como en el modo de texto con 
dos variaciones importantes: admite 
el manejo de los sprites y los carac- 
teres se imprimen en casillas de 8x8 
y no de 6x8 como en el modo de 
texto (valor horizontal X vertical). 
Los SVI utilizan una casilla de 6x8 
en todos los modos, y gracias a la 
utilización del programa en código 
máquina está casilla la utiliza sólo en 
modo texto, utilizando en el resto 
una de 8X8 como en los MSX. Este 
modo de texto de los MSX más spri- 
tes se emula en los SVI en el modo 
de alta resolución y sólo hay que va- 
riar las instrucciones LOCATE por 
PRESET(8xX,8xY) siendo X e Y los 
valores que se asignan en los MSX al 
comando LOCATE en este modo 
de pantalla. 

SCREEN 2 = SCREEN 1 en SVI. 



Gracias al programa en código má- 
quina SOLO HAY QUE SEGUIR 
LA TABLA A. En los SVI hay dos 
cursores, uno gráfico y otro para 
texto, ambos son independientes el 
uno del otro. El de gráfico se sitúa 
en los SVI mediante cualquier co- 
mando gráfico: PSET...,DRAW..., 
LINE..., CIRCLE..., I'SETSTEP..., 
etc. ; el cursor de texto s; localiza me- 
diante el comando LOCATE. Sin 
embargo en los MSX sólo existe un 
cursor que se localiza como el gráfi- 
co de los SVI. El programa en códi- 
go máquina hace que este cursor sea 
único en los SVI como si de un MSX 
se tratase. Y en resumen no hemos 
de preocuparnos de nada más que de 
la tabla A. 

Veréis que los caracteres gráficos os 
quedan separados unos de otros, es- 
to es debido a que en los modos de 
pantalla diferentes de los de texto 
los trabajan con casillas de 8x8 para 
colocar los caracteres como ya he 



TABLA A 



MSX 

OPEN «GRP:»... 

WIDTH n (n vale de I a 40) 

WIDTH n 

SCREEN„0 

SCREEN,, 1 

SCREEN„,0 

SCREEN,„1 

BASE(n) (n vale de a 19) 
VDP(n) (n vale de a 7) 
SCREEN 2 (Hi-Rcs) 
SCREEN 3 (Multicolor) 
trabajando en SCREEN 1 
Texto & Spri 



SVI 

OPEN «CRT:».„ 

WIDTH n (con prog. I en memoria) 

POKE & hF 543, n (sin prog. I) 

CLICK OFF 

CLICK ON 

No hay equivalencia. 

No hay equivalencia. 

Consultar la tabla B. 

Se desarrollará en posteriores art. 

SCREEN 1 

SCREEN 2 




TABLA B. Localización de las tablas gráficas de modo estándar. 



n es el valor en decimal de BASE(n): 

la dirección de inicio de cada tabla está en hexadccimal: 

si en ese modo no se utiliza la tabla se ha escrito : 



valor 


modo 


tabla 


diré. 


valor 


modo 


tabla 


diré. 





TEX 


TNP 


0000 


10 


GRII 


TNP 


1800 


1 


TEX 


TC 




11 


GRII 


TC 


2000 


2 


TEX 


TGP 


0800 


12 


GRII 


TGP 


0000 


3 


TEX 


TAS 




13 


GRII 


TAS 


1B00 


4 


TEX 


TGS 




14 


GRII 


TGS 


3800 


5 


GRI 


TNP 


1800 


15 


MUL 


TNP 


0800 


6 


GRI 


TC 


2000 


16 


MUL 


TC 




7 


GRI 


TGP 


0000 


17 


MUL 


TGP 


0000 


8 


GRI 


TAS 


1B00 


18 


MUL 


TAS 


1B00 


9 


GRI 


TGS 


3800 


19 


MUL 


TGS. 


3800 



ABREVIATURAS: TEX-texto, GRI-gráficos l(o texto & sprites), GRII-gráh- 
cos 2(o Alta resolución), MUL-multicolor (o Baja resolu- 
ción), TNP-tabla de texto (contiene el códg. ASCII del texto 
que aparezca en pantalla), TC-tabla de color, TGP-tabla de 



comentado, y sus caracteres gráficos 
ocupan toda la casilla mientras que 
en los SVI sólo ocupan una casilla de 
6x8 y están definidos para ese ta- 
maño. En un próximo artículo pu- 
blicaremos un programa que los re- 
definirá en los bVI tal cual son en los 
MSX. 

SCREEN 3 = SCREEN 2. Al igual 
que en el modo anterior no hay más 
que seguir la tabla A. 
Y ya no queda más por modificar 
para que los programas en Basic-E 
de los MSX funcionen en los SVI. 
Hay que mencionar que la ROM de 
un MSX y la de un SVI son diferen- 
tes y que por tanto cualquier subru- 
tina en código máquina que aparez- 
ca en un programa, escrito para un 
MSX, que haga una llamada a una 
dirección de la ROM no funcionará 
en un SVI. Sin embargo, en el pro- 
grama «El Oro de Alí Babá» publi- 
cado en el ESPECIAL VERANO 
de la revista MSX-EXTRA (n°7-8), 
hay una subrutina en cód. máquina 
a la que basta modificar cuatro valo- 
res para que funcione correctamente 
en un SVI: teclea el programa si- 
guiendo las indicaciones de este artí- 
culo y cambia la línea 60 por: 
60 data Oe, 00, 21, 05, Ib, 11, 70, 94, 
la, 47, cd, 34, 37, 90, cd, 2a, 37 y 
comprobáreis lo útil e interesantes 
que son la serie de artículos que la 
revista MSX-EXTRA publica bajo 
el título de «Hard al Soft». 
A este artículo va unida, a parte del 
programa I que genera la rutina en 
código máquina de compatibiliza- 
ción, una serie de pequeños progra- 
mas a modo de demostración y 
comprobación de lo que os explico. 
Hay una versión para MSX y otra 

tara SVI, respectivamente, 
n referencia a los programas de la 
revista y sus correspondientes tests 
de listados, hay que decir que estos 
últimos no valen en los SVI, ya que 
algunos comandos tienen códigos 
diferentes. 

También queria comentar que. en el 
artículo, al escribir SVI me refiero a 
los modelos 328 y 318 de Spectravi- 
deo concretamente; y al referirme a 
que un programa trabaje en tal o en 
cual modo entiéndase que me refie- 
ro a aquella porción de programa 
que mientras es ejecutada tiene un 
mismo modo de pantalla selec- 
cionado. 

Ya han sido descritos todos los mo- 
dos de pantalla. Sólo añadiremos que 
el segundo parámetro del comando 
SCREEN que define el tamaño de los 
sprites se escribe y tiene el mismo valor 
en ambos sistemas. Los caracteres de 
los MSX no están todos implementa- 
dos en los SVI, pero se pueden redefi- 
nir, tema que trataremos en posteriores 
artículos. 

Por último indicar que este artículo 
está abierto a todos los lectores que de- 
seen preguntar, comentar, ampliar y/o 
corregir lo que en él se trata. 
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MSX por dentro 




PROGRAMAS 
DE EQUIVALENCIAS 
MSX y SVI 



MSX 



10 REM ** BASE (n) ** 

20 SCREENO: VIDTH39: COLOR 1,14 

30 LOCATE 4,4:PRINT " BASE DEMO" 

40"A=BASE(8> : A=A+1: PRINT A 

50 B=BASE<0) +&H10: PRINT B 

60 FOR B=0TO1000: NEXTB 




10 REM ** BASE <n> ** 
20 SCREENO: VI DTH39: COLOR 1,14 
30 LOCATE 4, 4: PRINT "BASE DEMO" 
40 A=&H1B00: A=A+1: PRINT A 
50 B=&H0 +&H10: PRINT B 
B=0T( 




MSX 



10 REM ** VDP(n) ** 

20 LOCATE 4, 8: PRINT "VDP DEMO" 

30 COLOR 1, 15 

40 PRINT VDP (7) 

50 FOR B=0TO1000: NEXTB 



SVI 



10 REM ** VDP(n) ** 
20 LOCATE 4, 8: PRINT "VDP DEMO" 
30 COLOR 1 , 15 

40 PRINT PEEK<&HFA0A>*16+PEEK<&HFA0 




MSX 



10 REM ** VIDTH(n) ** 
20 VIDTH 20 
30 LOCATE 4,1: PRINT "VIDTH DEMO" 





50 PRINT CHR$<A> ; 

60 NEXT A: PRINT 

70 FOR B=0 TO1000: NEXTB 

80 VIDTH 8 

90 FOR A=255 TO 32 STEP-1 
100 PRINT CHR$ (A) ; 
110 NEXT A: PRINT 

120 FOR B=0 TO1000: NEXTB: VIDTH 39 



SVI 



** 



10 REM ** VIDTH <n> 
20 VIDTH 20 

30 LOCATE 4,1:PRINT "VIDTH DEMO" 

40 FOR A=32 TO 255 

50 PRINT CHRS (A) ; 

60 NEXT A: PRINT 

70 FOR B=0 TO1000: NEXTB 

80 VIDTH 8 

90 FOR A=255 TO 32 STEP-1 
100 PRINT CHRS (A) ; 
110 NEXT A: PRINT 

120 FOR B=0 TO1000: NEXTB: VIDTH 39 

: 



MSX 



10 REM ** SCREEN, ,n ** 

20 CLS: VIDTH30: LOCATE4 , 4: PRINT "SCR 
EEN, , n DEMO" : SCREEN, , 1 
30 PRINT: INPÜT "PULSA TECLAS Y ESCU 
CHA EL CLICK, PULSA ENTER PARA CONT 
INUAR" ; AS 

40 ' AHORA QUITO EL CLICK 
50 SCREEN, , 

60 PRINT: INPUT "PULSA TECLAS Y NO E 
SCUCHARAS EL CLICK, PULSA ENTER PAR 
A TERMINAR" ; AS 
70 ' ACTIVO EL CLICK 



SVI 



10 REM ** SCREEN, , n ** 

20 CLS: VIDTH30: LOCATE4, 4: PRINT "SCR 
EEN, , n DEMO": CLICK ON 
30 PRINT: INPUT "PULSA TECLAS Y ESCU 
CHA EL CLICK, PULSA ENTER PARA CONT 
INUAR"; AS 

40 ' AHORA QUITO EL CLICK 
CLICK OFF 

PRINT: INPUT "PULSA TECLAS Y NO E 
SCUCHARAS EL CLICK, PULSA ENTER PAR 
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CLICK 




MSX 



REM ** SCREEN O ** 
i VIDTH 39 
SCREEN O 
,40 LOCATE 4, 8; PRINT "SCREEN 
50 LOCATE 10, 10 

60 PRINT "FUNCIONO" ¡ "BIEN?" : LOC 
20, 15 
PRINT"PUES CLARO. " 
F 



DEMO" 
CATE 




SVI 



10 REM ** SCREEN ** 
20 VIDTH 39 
30 SCREEN 

LOCATE 4,8: PRINT "SCREEN DEMO" 
LOCATE 10, 10 
60 PRINT "FUNCIONO" ; "BIEN?" : LOCATE 
15 

'UES CLARO. " 
TO1000: NEXTB 




10 
20 
30 
40 
50 
60 



REM ** SCREEN 1 ** 
SCREEN 1 , 1 

LOCATE 4, 8: PRINT "SCREEN 1 DEMO" 
LOCATE 20, 10 



PRINT" QUE TAL?" 

SPR I TES < 1 ) =CHR$ (255 ) +CHRS ( 129 
HRS < 129 > +CHRS < 129 ) +CHRS < 129 ) +CH 
) +CHRS ( 129 ) +CHRS (255) 
PUT SPRITE 1, (128, 96), 8 
FOR A=0 TO 50 

PUT SPRITE 1, (128+A, 96+A) , 8 
FOR B=A TO A~2/10: NEXTB 
10 NEXTA 





(8*4, 8*8) : PRINT "SCR 

SMO" 

PRESET (8*20, 8*10) 
PRINT" QUE TAL?" 

SPR I TES ( 1 ) =CHR$ (255 ) +CHRS < 129 ) +C 
< 129 ) +CHRS ( 129 ) +CHRS < 129 ) +CHRS < 1 



70 PUT SPRITE 1, (128, 96), 8 
80 FOR A=0 TO 50 

90 PUT SPRITE 1, (128+A, 96+A) , 8 
100 FOR B=A TO A~2/10 : NEXTB 
110 NEXTA 




MSX 



10 REM ** SCREEN 2 ** 
20 COLOR 1,3: SCREEN 2 
30 OPEN "GRP : " AS #1 
4 PSET(5,5):PRINT#1," SCREEN 2 DEM 
O" 

50 CIRCLE (128, 96) , 50, 1 
60 FOR B=0 TO 500: NEXT B 
70 LINE STEP (-75, -50)- (128+75, 96+50 
) , 15, BF 

80 PSET(20,20) 

90 PRINT#1, "HOLA! " 

100 DRAVbM 75,25" 

110 PRINT#1,"ME VOY." 

120 PSET(0, 0) 

130 PSET STEP(18,50) 

140 PRINT#1," NO ESTOY"; 

150 PRINT#1," ME FUI"; 

160 LINE STEP(0, ) -STEP (- 120 , +50) , 1 

170 PRINT#1, "OK. " ; " Adiós." 

180 FOR A=0 TO 1000: NEXT 

190 COLOR 1,1:SCREEN0 

200 FOR A=0 TO 500: NEXT A 



SVI 



10 REM ** SCREEN 2 ** 
20 COLOR 1,3: SCREEN 2 
30 OPEN "GRP:" AS #1 
40 PSET(5,5):PRINT#1," SCREEN 2 DEM 
O" 

50 CIRCLE (128, 96) , 50, 1 

60 FOR B=0 TO 500: NEXT B 

70- LINE STEP(-75, -50)- (128+75, 96+50 

) , 15, BF 

80 PSET(20,20) 

90 PRINT#1, "HOLA! " 

100 DRAV" bM 75, 25" 

110 PRINT#1,"ME VOY." 

120 PSET(0, 0) 

130 PSET STEP (18, 50) 

140 PRINT#1," NO ESTOY"; 

150 PRINT#1," ME FUI"; 

160 LINE STEP(0, ) -STEP (-120 , +50) , 1 

170 PRINT#1, "OK. " ; " Adiós." 

180 FOR A=0 TO 1000: NEXT 

190 COLOR 1,1:SCREEN0 

200 FOR A=0 TO 500: NEXT A 



210 COLOHI^^END 
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MSX por dentro 





10 ' **** PROGRAMA I **** 
20 ' **** SVI-328/MSX **** 
30 » *por FEDERICO J. **** 
40 ' **** ALONSO PADILLA * 
50 FOR A=&H8000 TO &H8079 
60 READ A$:POKE A, VAL <"&H"+A$> 
70 NEXT 

80 BSAVE M SVIKSX" , &H8000, &H8079 

90 DEF USR=&H8000: A=USR (0) : NEW 

100 DATA 21,78,80, 22, 4A.F5, 01, C3,80 

,21, 09, FF, 16,28,CD,22,80,21,C4,FF, 1 

6, 4E, CD, 22, 80, 21, 3F, FF, 16, 5C, CD, 22, 

80 , C9 , 7 1 , 23 , 72 , 23 , 70 , C9 

110 DATA 3A, 3A, FE, FE, 01, D8, D9, 1E, 08 

, CA, 36, 80, 1E, 20, 3A, 46, FE, 32, 04, FA, 8 

3,32, 46, FE, 3A, 48 ,-FE, 32, 03, FA, D2, 4A, # 

80,83,32,48,FE,D9,C9 

120 DATA 3A,04,FA,32,46,FE,3A,03,FA 
, 32, 48, FE, C9, FE, 01, D8, FE, 29, DO, FE, 2 
7,D9,DA,6E,80,CD,9F,3B,C3,71,80,CD, 
86,3B,D9,3E,28,C9, 00, 00, 00, 00, 00 



Para el modelo SVI-318 cambiar en 
las lineas 50,80 y 90 el valor 
&H8000 por &HC000, y el valor 
&H8079 por &HC079; en las lineas 
100,110 y 120 cambiar todos los 
valores 80 por C0. 





SONY BERNARDO 

Córcega, 267 - Tel. 218 22 97 - 08008 Barcelona 

Oferta: MSX-NAVIDAD 

Por la compra de un ordenador Sony-MSX o periférico (Floppy 
o impresora) se obsequiará con una de las siguientes opciones, 
• 50 % descuento curso Basic (cursos especiales 10-14 años) 

• 10.000 Ptas. en Software 
Duración de la oferta: Noviembre, Diciembre y Enero. 
Venga a ver nuestro extenso catálogo de programas 

y juegos para su MSX. 
Cursos intensivos de Basic, también cursos especiales 
para niños de 10 a 14 años. 
Amplia gama de ordenadores de gestión. 
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7. °- MSX CLUB OTORGARA 
GUEENTES PREMIOS: 

TOYSTICK DE ORO MSX CLUB Y UN.. 

UNIDAD DE DISCO AL MEJOR PROGRA 

MA DEL AÑO 
Además mensualmente se premiarán los p 

gramas publicados del siguiente modo: 
10.000 pts. los programas Educativos 
10.000 pts. los programas de Gestión 
6.000pts. los programas de Entretenimiento 

8. °- MSX CLUB DE PROGRAMAS se reser 
va el derecho de publicar fuera de concur 
aquellos programas de reducidas dimensioi 
que sean de interés, premiando a sus autores. 



9.°- El Departamento de Programación de 
MSX CLUB DE PROGRAMAS hará la primera 
selección de la que saldrán los programas publi- 
cados en cada número de la revista. 

10. °- Los programas no se devolverán salvo que 
así lo requiera el autor. 

1 1. °- La elección del PROGRAMA DEL AÑO 
se hará por votación de nuestros lectores a través 
de un boletín que se publicará en el raes de octu- 
bre de 1986. 

12. °- El plazo de entrega de los programas finali- 
zará el 3 1 de octubre de 1986. 

13. °- El fallo se hará conocer en el número de di- 
ciembre de 1986, entregándose los premios en el 
mismo mes. 



Remitir a: 1 n^otmmm I MI PROGRAMA 

Roca i Batlle, 10-12, bajos 08023 Barcelona 
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Entrevista 



EL MSX COMO 
AUXILIAR DE LA 
ENSEÑANZA 



Entrevistamos a José Vila- 
domat — Director Comercial 
de Sanyo — , quien pone de 
manifiesto los objetivos y las 

Í garantías de esta empresa en 
a comercialización de sus 
aparatos MSX. 




Dentro del mercado internacio- 
nal y en particular del español, 
la marca Sanyo es un signo de 
garantía. En este sentido, la estrategia 
seguida por Sanyo España por la nece- 
sidad de garantizar un soporte comer- 
cial y de mantenimiento palpable de 
ellos. 

— Señor Viladomat, el MSX como 
aparato perteneciente a la microinfor- 
mática ae consumo tal vez no tenga 
muy claro cuál es su verdadera utilidad 
dentro del hogar ¿qué piensa Sanyo al 
respecto? 



— Pues bien, Sanyo cree que en esta fa- 
se el empleo de Los MSX debe circuns- 
cribirse al sector de la educación y al de 
los juegos. Lo importante es ofrecer un 
soporte para que el aparato sea útil al 
estudiante y poco a poco se vaya in- 
corporando a las tareas cotidianas. Creo 
que por este camino la utilización de un 
nome computer en el hogar será una 
consecuencia, de la aplicación educativa 
que el alumno le de. 

— También ha señalado Vd. el aspecto 
lúdico. Un aspecto que muchos ya 
discuten. 



— Por ahora el ordenador en la casa 
tiene que servir de entretenimiento, 
pues la sociedad española aún está en 
una fase muy primitiva y es necesario 
familiarizarla con el manejo y el apro- 
vechamiento potencial del aparato. Este 
aprovechamiento tiene que surgir de un 
modo gradual. Hablar ahora de gran- 
des aplicaciones tal como están las cosas 
es ir demasiado deprisa. 

— ¿Por qué? 

— Porque por ahora sólo se puede ha- 
blar de pequeñas aplicaciones. Esto es 
así porque no hay software suficiente y 
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tampoco hay un hardware al alcance de 
la mano, lodo esto se irá creando poco 
a poco a media que surjan las necesida- 
des y se incorporen a la microinformáti- 
ca de consumo. 

— ¿Quiere decir que el usuario tiene 
que descubrir por sí mismo, al margen 
de la publicidad, la utilidad de un apa- 
rato MSX? 

- — En efecto, pero para que esto suceda 
hay que desmitificar la informática. El 
usuario tiene que descubrir que lo 
importante es saber sacarle el máximo 
provecho, pero que para ello no tiene 
que ser necesariamente ingeniero en in- 
formática. Por otra parte, tiene que 
descubrir que el ordenador es funda- 
mentalmente una herramienta de tra- 
bajo, y que desde el principio su empleo 
tiene que ser racionalizado, tanto edu- 
cacional como lúdico. A partir de allí 
puede comprender con claridad que el 
ordenador es un electrodoméstico más 
con el cual puede llegar a acceder a 
banco de datos, bibliotecas, comunicar- 
se vía satélite. 

— Entonces la pregunta siguiente sería 
¿qué banco de datos, que satélite? 

— Así volvemos al principio. Por el mo- 
mento no está desarrollado lo suficiente 
todo aquello a lo que puede acceder el 
usuario. Quiero decir que no hay peri- 
féricos suficientes o si los hay no están al 
alcance de todos. En España aún no hay 
bancos de datos ni tampoco hay medios 
de conectar con satélites informativos, 
ni el usuario sabe cómo utilizar la in- 
formática que pueda recibir. Pero eso 
no significa que tenga que quedarse al 
margen y todos los aparatos del hogar 
tienen que incorporarse poco a poco a 
las posibilidades de un futuro muy pró- 
ximo. Ya sabemos que hay satélites que 
emiten programas educativos, progra- 
mas de televisión de distintos países, pe- 
ro se trata de prepararnos para acceder 
a ellos. 

— ¿Y es aquí donde el MSX juega su 
mejor baza, la estandarización? 

— Por supuesto. Los MSX son aparatos 
que ofrecen la posibilidad de una mejor 
comunicación y lo que realmente justi- 
fica su existencia y desarrollo es la es- 
tandarización mundial. ¿Cómo podrá 
comunicarse un usuario japonés con un 
canadiense o uno español con un latino- 
americano, sino a través de un idioma 
informático común f Pues bien, Sanyo 
tiene muy claro que el MSX será un es- 
labón fundamental en la red mundial 
de comunicaciones para el hombre de la 
calle. 

— Pero para abonar esa posibilidad es 
necesario primero crear los medios y 
después la necesidad. 

— Sanyo está convencida de que a par- 
tir de ahora se irán incorporando distin- 
tos sectores de la sociedad que todavía 
no han tenido oportunidad ele hacer uso 
de la microinformática. Si tenemos en 
cuenta que por un lado no hay suficien- 
tes productores de software y que los 
que hay están trabajando intuitiva- 
mente y que por otro hay sectores que 
aún no se han incorporado por razones 




económicas o de temor a la microinfor- 
mática nos daremos cuenta de que esta- 
mos ante un obstáculo que hay que 
vencer. Uno de los caminos es ofrecer 
un hardware accesible tanto técnica co- 
mo económicamente y permitir que esos 
sectores se familiaricen con una herra- 
mienta de trabajo aue puede resolver 
muchos de los problemas de su activi- 
dad diaria. Los mejores programas sur- 
girán cuando los maestros — por ejem- 
plo — , o los carpinteros o los miembros 
de cualquier otro colectivo elaboren los 
suyos ajustándose a sus experiencias más 
inmediatas. Ellos son los que darán so- 
luciones informáticas a sus trabajos y los 
que, en consecuencia, optimizaran el 
rendimiento del software. 

— Pero para que ello sea realidad es 
necesario que tengan una buena in- 
formación. 

— La información, la divulgación es 
absolutamente necesaria en estos mo- 
mentos y en este sentido es muy impor- 
tante vuestra labor y tener en vuestra 
revista secciones como «Tablón de 
Anuncios" o «Línea Directa» en la que 
los usuarios pueden comunicarse entre sí 
e intercambiar software, experiencias, 
etc. Es el mismo criterio que nosotros 
seguimos con nuestros vendedores ofi- 
ciales. 

— Precisamente uno de los problemas 
que nos plantean nuestros lectores es 
que no reciben el asesoramiento nece- 
sario por parte de los vendedores. 

— La política de Sanyo, cuyo capital es 



50 % es español y 50 % japonés, es la de 
dar una imagen de continuidad y de 
absoluta garantía al usuario. Este de 
ningún modo se sentirá defraudado ni 
abandonado una vez que haya compra- 
do nuestros productos. Para ello organi- 
zamos una red de ventas con diez dis- 
tribuidores oficiales en todo el territorio 
nacional, con excepción de los puertos 
francos de Ceuta, Melilla y Canarias, 
que nos permiten tener un contacto di- 
recto con los usuarios. Nosotros asesora- 
mos y formamos a estos distribuidores 
para que puedan ofrecer un buen sopor- 
te informativo y técnico a los usuarios. 
Estos distribuidores oficiales que se en- 
cuentran en Galicia, Norte, Aragón, 
Cataluña, Centro, Baleares, Levante, 
León-Extremadura y Andalucía, pue- 
den responder ante sus clientes con cri- 
terios más ajustados a las propias necesi- 
dades regionales, lo cual permite un ser- 
vicio mejor y más flexible. Al mismo 
tiempo, nuestro servicio de post venta 
cuenta con setenta talleres autorizados 
para soporte y mantenimiento de nues- 
tros apartados. 

— Vemos que Vd. hace hincapié en la 
garantía que tienen sus aparatos, en los 
cuidados de su presentación, sin em- 
bargo, hay usuarios que se quejan de 
encontrarse, por ejemplo, que los ma- 
nuales de uso no están en castellano. 

— Este es un problema aue no deriva 
de los importadores oficiales. Aquí suce- 
de que hay mucho importación paralela 
que no puede ofrecer garantías del mis- 



2 



Entrevista m^^^mmmtmm 

mo modo que la ofrecemos nosotros. No 
olvide que Sanyo es mucho más que un 
importador que consigue la licencia de 
una marca. Sanyo esta aquí y permane- 
cerá aquí y tiene que responder con se- 
riedad a los requerimientos de los usua- 
rios. Puedo asegurarle y advertir a los 
usuarios que nuestros productos son de- 
bidamente preparados para que el pú- 
blico español no tenga ningún tiempo 
de inconveniente. De modo que se apa- 
recen, por ejemplo manuales en inglés o 
japones, es porque son aparatos que no 
han entrado a través de Sanyo España, 
S. A., una firma con dos factorías en 
España. 

— Pues bien, sabemos que Sanyo 
cuenta con dos grandes plantas en Tu- 
dela y Huesca ¿porqué no fabrica el 



MSX aquí? 

— Porque lo haremos cuando la de- 
manda justifique la inversión y ello 
puede suceder en el futuro. No olvide 
que el estándar MSX es reciente y que 
a Pesar del éxito obtenido todavía le 
falta mucho que recorrer. 

— Siempre desde el punto de vista del 
usuario, una de las cosas que le Dreocu- 
pa es precisamente el futuro. ¿Qué pa- 
sará con los actuales aparatos cuando 
salgan las nuevas generaciones? ¿Se 
convertirán en chatarra? 

— Mire, le voy a decir algo muy impor- 
tante. En estos momentos esta sociedad, 
como la mayoría de las sociedades que 
consideramos bastante desarrolladas, 
están pasando por una etapa de apren- 
dizaje. Estos aparatos que actualmente 



han sido concebidos para cubrir una 
etapa de familiarizacion con la microin- 
formática, no quedarán convertidos en 
chatarra pues Las nuevas generaciones 
no significarán una ruptura sino un 
avance. El mismo usuario será quien 
exija en función de sus necesidades apa- 
ratos más potentes y que se acerquen a 
las prestaciones de lo ordenadores per- 
sonales, que hoy por hoy están fuera de 
su alcance, pero que no lo estarán en el 
futuro. 

José Viladomat, con notable precisión 
y contando con el asesoramiento téc- 
nico de Carlos Pérez, configura con 
lucidez y visión de futuro el camino de 
un sector que necesita de responsabili- 
dad y seriedad para no desvirtuar su 
contenido y sus enormes posibilidades. 





N.°l - 150 PTAS. 



N.°2-150 PTAS. 




N.° l 3 y 4 - 300 PTAS. N.° 5 - 1 50 PTAS. 



N.° 6-150 PTAS. 



N.° 7 - 1 50 PTAS. 



LOCO. UN LENGUAJE DIDACTICO 



N.° 8-150 PTAS. 



iSI TE HACE FALTA ALGUN NUMERO 
PIDELO HOY MISMO! 




Para contar con la más completa colección de programas de MSX sólo tienes que recortar 
o fotocoplar el cupón y dirigirlo a opto. Suscripciones MSX CLUB DE programas 

Roca I Batlle 10-12. 08023 Barcelona. 



I 
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BOLETIN DE PEDIDO 1 

Sí, deseo recibir hoy mismo los números de MSX CLUB DE PROGRAMAS, libre de 

gastos de envío, por lo que adjunto talón n.° del Banco/Caja 

por el importe de ptas. a nombre de MANHATTAN TRANSFER, S.A. 

NOMBRE Y APELLIDOS ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 

CALLE N.° CIUDAD 

DP .................................. PROVINCIA ................... ............................... i. .... • TEL 

. l 



fOOOOOOOOOOOOOOOOOOOOOOOOOOO< 



KRYPTON 




Si quieres 
cargar en tu 
ordenador esta 
cassette envía 
HOY MISMO 



. 



CUPON DE PEDIDO 

Si deseo recibir por correo certi- 
ficado el juego KYPTON. 



□Precio 500 pts. 

□ Precio especial suscripto* 450 pts. 

□ Gastos de envío 70 pts. 



Remito talón bancario de 

pts. a la orden 

de MANHATTAN TRANSFER 
SA 

Nombre y apellidos ... 



Calle 
N:° .. 
D.P. 



! 

I 
i 
I 

í 



Ciudad 

••••• Tel.: 



HtltMMMIM 



IMPORTANTE: 

Indicar en el sobre 
MSX CLUB DE CASSETTES 
RocaiBatlle, 10-12. 
Bajos 

08023 Barcelona 
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Programa i : . h Francisco Salazar 



EL BORRA 



Partiendo de la idea del «co- 
mecocos» tenemos aquí una 
variación original en la que 
al mismo tiempo que se evita 
a los monstruos hay que bo- 
rrar la pantalla. 



«El Borra», que tiene tres vidas, tiene la energéticas, pero cuya acción es cada 

misión de borrar tres pantallas y evitar vez menor. Si consigues no comerte 

a los monstruitos que vienen por él. ninguna de estas pastillas, el ordenador 

Para eliminarlos cuenta con pastillas te premia con una vida extra y más 



puntos. A medida que se avanza la difi- 
cultad es creciente, los bichos se mue- 
ven más rápido y los efectos de las pas- 
tillas es menor. 



10 CLS 

20 ' ** EL BORRA XX 

30 ' X POR F.J.S. X 

40 ' X PARA MSX X 

50 ' XXX CLUB XX 

60 CLEAR 8000 

70 DEFINT A-Z 

80 0PEN"GRP:"AS#1 

90 PA=1 :NY=0:PO=1 :SC=0:TQ=4 

100 BH=16 

110 CLS:COLOR 15, 1 . 1 :TQ=TQ+1 :PA=PA-1 :P0= 
PO-1 :N=1 :B=10:P=50 

120 E3=0:REM SI SE QUIERE JOYSTICK CAMBI 
AR E3=l 

130 ' PRESENTACION 

140 SCREEN 3,l:C0L0R 15,1,1 

150 D$=" ADEBAAC" 

160 B$="03CFGEDC" 

170 C$="05BFEFGC" 

180 PLAY D$.B$ 

190 PLAY B$.C$ 

200 PLAY D$.C$ 

210 RESTORE 500:GOSUB 350 

220 PSETC0.0], 1 :COLOR 9 :PRINT#1 , "e 1 borr 

a" 

230 PSETC0. 10], 1 :COLOR 7:PRINT#1," 

■i 

240 IF SCO0 THEN PSETC20, 70] , 1 :COLOR 2: 
PRINT#1 ,SC 

250 FOR HH=1 TO 271 STEP 3. 1 :PUT SPRITE 
1, CHH. 150], 15,0 

260 IF HH>270 AND P=50 THEN HH=0:B=1:P=0 

270 PUT SPRITE 2, CHH-40, 150] . 13, 1 

280 PUT SPRITE 3, CHH-40, 150] , 1 1 , 2 

290 PSETCHH-P, 156], 1 :COLOR B :PRINTttl , CHR 

$C45] 

300 NEXT HH:N=0 

310 SCREEN 2,0:RESTORE 500 

320 COLOR ,1 

330 PSETC 130, 10] , 1 ¡COLOR 10 :PRINT#1 , "SCO 
RE:" 

340 PSETC130,0], 1 '.COLOR 10 :PRINT#1 , "FASE 
• ii 

350 FOR 1=1 TO 8 
360 READ A$ 

370 S$=S$+CHR$CUALC"8,B"+A$]] 

380 NEXT I 

390 SPRITE$C0]=S$ 

400 FOR 1=1 TO 8 

410 READ A1$:S1$=S1$+CHR$CUALC"&,B"+A1*]] 

420 NEXT I :SPRITE$C1]=S1$ 
430 FOR 1=1 TO 8 

440 READ A2$:S2$=S2$+CHR$CUALC"8«B"+A2$]] 

450 NEXT I :SPRITE$C2]=S2$ 
460 FOR 1=1 TO 8 

470 READ A3$:S3$=S3$+CHR$CUALC"&,B"+A3$]] 

480 NEXT I :SPRITE$C3]=S3$ 
490 ' DEFINICION DE SPRITES 
500 DATA 00111100 
510 DATA 01111110 
520 DATA 10011001 
530 DATA 10011001 



540 


DATA 


11111111 


550 


DATA 


10111101 


560 


DATA 


01000010 


570 


DATA 


001 1 1 100 


580 


DATA 


00111 100 


590 


DATA 


0001 1000 


600 


DATA 


0001 1000 


610 


DATA 


001 1 1 100 


620 


DATA 


01111110 


630 


DATA 


00000000 


640 


DATA 


01111110 

' X X X X X X 


650 


DATA 


01010100 


660 


DATA 


00000000 


670 


DATA 


00000000 


680 


DATA 


00000000 


690 


DATA 


00000000 


700 


DATA 


00000000 


710 


DATA 


01111110 


720 


DATA 


00000000 


730 


DATA 


00101010 


740 


DATA 


0001 1000 


750 


DATA 


0001 1000 


760 


DATA 


01111110 


770 


DATA 


01111110 


780 


DATA 


0001 1000 


790 


DATA 


0001 1000 


800 


DATA 


00111100 


810 


DATA 


01111110 


820 


IF N= 


■1 THEN RETURN 


830 


COLOR 15,1.1 


840 


RESTORE 500 


850 


GOTO 


880 


860 


* COMIENZO JUEGO 


870 


PLAY' 


03CDCCFGAAF02FG03B 



BC01E":FOR GG=1 TO 1000:NEXT GG 
880 GOSUB 2160:BA=1 :BB=1 :BC=1 :BD=1 :KI = 1 : 
SA=440:PA=PA+1 :PO=PO+l :NY=NY+2:IF NY>6 T 
HEN NY=2 

890 IF P0=4 THEN PO=l ¡GOTO 110 

900 BH=BH-i:IF BH=0 THEN BH=3 

910 LINEC165,0]-C230,8], 1 , BF :PSETC 165» 0] 

, 1 .-COLOR 10:PRINT#1 ,PA 

920 LINEC40,20]-C215, 179],NY,BF 

930 LINEC38, 18D-C217, 181], 15, B 

940 PSETC48,92],NY:C0L0R 1 :PRINTttl , CHR^C 

1] :CHR$C68] 

950 PSETC129.28].NY:C0L0R 1 :PRINT#1 , CHR$ 
Cl ] :CHR$C67] 

960 PSET C 1 28 , 1 64 ] , NY : COLOR 1 :PRINT#1 , CHR 
$C1] :CHR$C69] 

970 PSETC200,92],NY:COLOR 1 :PRINT#1 , CHR$ 
CID ;CHR$C70] 

980 PSETC 108, 185] ¡COLOR 9 :PRINT#1 , " < 

>" 

990 IF PA=1 THEN UU=3 
1000 IF PA=2 THEN UU=6 
1010 IF PA=3 THEN UU=9 
1020 IF PA>=4 THEN UU=11 
1030 GOTO 1060 
1040 ' TE HAN ATRAPADO 

1050 TQ=TQ-1 :FOR GG=1 TO 400:PUT SPRITE 
1 , CA.B], 15.3:NEXT GG 

1060 GOSUB 2160:X3=208:Y3=171 :X2=40:Y2=1 
71 :X1=208:Y1 = 19:X=40:Y=19:A=128:B=91 :IF 
TQ=0 THEN FOR GG=1 TO 3000:NEXT GG :RUN 6 
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rama 



1070 JA=1 :JE=1 :JI = 1 :JU=1 :AL=1 1 :EL=3 : IL=7 
:UL=9:OL=0:RH=0:SK=0 

1080 IF TQ>4 THEN PUT SPRITE 12,C100,53. 
15.0 ELSE PUT SPRITE 1 2, C 100, 53 , 1 , 

1090 IF TQ>3 THEN PUT SPRITE 13.C80.53.1 

5.0 ELSE PUT SPRITE 13, C80, 53 . 1 . 

1100 IF TQ>2 THEN PUT SPRITE 14.C60.53.1 

5,0 ELSE PUT SPRITE 14, C60, 53 . 1 , 9 

1110 IF TQ>1 THEN PUT SPRITE 15. £40,53.1 

5.0 ELSE PUT SPRITE 15. C40, 53 . 1 , 

1120 D=STICKCE33 

1130 IF D=l THEN B=B-8 

1140 IF D=3 THEN A=A-8 

1150 IF D=5 THEN B=B+8 

1160 IF 0=7 THEN A=A-8 

1170 PUT SPRITE 1.CA.B3.15.0 

1180 IF POINTCA.B+23=NY THEN BEEP :LINEC A 

,B+1 3-CA+7.B+8 3. 1 , BF :SC=SC+5 ¡SA--SA-1 :IF 

SA=0 THEN 870 

1190 IF A=48 AND B=91 AND BD=1 THEN PLAV 
"BACBGF" . "GFEFCC" :GOSUB 2150 :SK=0 :BD=0 
1200 IF A=128 AND B=27 AND BA=1THEN PLAV 
"BACBGF", "GFEFCC" :GOSUB 2150 :SK=0:BA=0 
1210 IF A=128 AND B=163 AND BB=1 THEN PL 
AY"BACBGF", "GFEFCC" :GOSUB 2150 :SK=0 :BB=0 

1220 IF A=200 AND B=91 AND &C~l THEN PLA 

Y-BACBGF", "GFEFCC" :GOSUB 2150:SK=0:BC=0 

1230 ' riOUmiENTO DE LAS BROCHAS 

1*240 IF X<A THEN X=X+UU*JA 

1250 IF X>A THEN X=X-4 

1260 IF Y>B THEN Y=>Y~2 

1270 IF Y<B T HEN Y=Y+UU*JA 

1280 IF Y1>B THEN Yl=Yl-8 

1290 IF YKB T HEN Yl-Y¿+€ 

1300 IF X1>A THEN X1=X1-UU£JE 

1310 IF XI <A THEN X1=X1+UU*JE 

1320 IF X3<A THEN X3=X3+8 

1330 IF X3>A then X3=X3-UU*JU 

1340 IF Y3>B THEN Y3=Y3-UU*JU 

1350 IF Y3<B T HEN Y3-Y3-8 

1360 IF A>=208 THEN A=208 

1370 IF A<=40 THEN A=¿0 

1380 IF B> = 171 THEN B=171 

1390 IF B<=19 THEN B=19 

1400 OL=OL+RH:lF 0L=3H T HEN RH=0:OL=0:AL 

= 11 :EL=3:IL=7:UL=9:JA=1 :JE=Í :JI = 1 :JU=1 

1410 PUT SPRITE 2, CX. Y3. AL. 1 

1420 PUT SPRITE 6.CX.Y3.1.2 

1430 PUT SPRITE 3. CXI . Yl 3 . EL. 1 

1440 PUT SPRITE 7, CXI, Y 13. 1,2 

1450 PUT SPRITE 4, CX2, Y23 , IL, 1 

1460 PUT SPRITE 8 , C X2 , Y2 3 , 1 , 2 

1470 PUT SPRITE 5. C X3, Y33 , UL, 1 

1480 PUT SPRITE 9, CX3. Y33 . 1 , 2 

1490 D=STICKCE33 

1500 IF D=l THEN B=B-8 

1510 IF D=3 THEN A=A+8 

1520 IF D=5 THEN B=B+8 

1530 IF D=7 THEN A=A-8 

1540 PUT SPRITE 1 . CA.B3. 15,0 

1550 IF XI > =208 THEN XI =208 

1560 IF X1<=¿0 THEN XI =40 

1570 IF Y.i> = 171 THEN Yl = 171 

1580 IF Yl<=19 THEN Yl=19 

1590 IF X2<=¿0 THEN X2=*0 

1600 IF v 2 >=171 THEN Y2=171 




1610 IF V2<=19 THEN Y2=19 
1620 IF X3>=208 THEN X3=208 
1630 IF X3<=¿0 THEN X3=¿0 

1640 IF POINTCA.B+23=NY THEN BEEP :LINECA 
, B+l 3-CA+7.B+83 . 1 . BF :SC=SC+5 :SA=SA- 1 SÍF 
SA=0 THEN 870 

1650 IF Y3>=171 THEN Y3=171 

1660 PUT SPRITE 2,CX,Y3,AL.l 

1670 PUT SPRITE 6. CX, YO. 1.2 

1680 IF A=128 AND B=27 AND BA=1 THEN PLAY 

"BACBGF" . "GFEFCC" :GOSUB 2150 :SK = :BA=0 

1690 IF A=48 AND B=91 AND BD=1 THEN PLAY 

"BACBGF" . "GFEFCC" ".GOSUB 2150 :SK=0 :BD=0 

1700 PUT SPRITE 3, CX1,Y13,EL, 1 

1710 PUT SPRITE 7. CX1.Y13. 1.2 

1720 PUT SPRITE 4. CX2, Y23 . IL, 1 

1730 PUT SPRITE 8, CX2. Y23 , 1,2 

1740 PUT SPRITE 5, CX3, Y33 , UL, 1 

1750 PUT SPRITE 9, CX3, Y33 , 1 , 2 

1760 IF A=128 AND B=163 AND BB=1 THEN PL 

AY"BACBGF" , "GFEFCC" :60SUB 2150 :SK=0 :BB=0 

1770 IF A=200 AND B=91 AND BC=1 THEN PLA 
Y"BACBGF" , "GFEFCC" :GOSUB 2150 :SK=0 :BC=0 
1780 IF KI=1 THEN IF BD=1 AND BA=1 AND B 
B=l AND BC=1 AND SA=4 THEN KI=0 :PLAY"03B 
AC05DR6407B06E" :TQ=TQ+1 :SC=SC+1000 :GOTO 
1080 

1790 IF X>A-10 AND X<A+10 AND Y>B-10 AND 
Y<B+10 THEN IF AL=11 THEN PLAY" T250O3BA 
DB02BAGGB" :GOTO 1050 ELSE IF AL=15 THEN 
GOSUB 2180 

1800 IF X1>A-10 AND XKA+10 AND Y1>B-10 
AND YKB+10 THEN IF EL=3 THEN PLAY"T250O 
3BADB02GFCFG" :GOTO 1050 ELSE IF EL=15 TH 
EN GOSUB 2190 

1810 IF X2>A-10 AND X2<A+10 AND Y2>B~10 
AND Y2<B+10 THEN IF IL=7 THEN PLAY"T250O 
3BADB02EFCAE" :GOTO 1050 ELSE IF IL=15 TH 
EN GOSUB 2200 

1820 IF X3>A-10 AND X3<A+10 AND Y3>B-10 

AND Y3<B+10 THEN IF UL=9 THEN PLAY"T250O 

3BADB02GDGBC" :GOTO 1050 ELSE IF UL=15 TH 

EN GOSUB 2210 

1830 R=STICKCE33 

1840 IF R=l THEN B=B-8 

1850 IF R=3 THEN A=A+8 

1860 'IF R=5 THEN B=B+8 

1870 IF R=7 THEN A=A-8 

1880 PUT SPRITE 1,CA.B3,15,0 

1890 IF POINTCA.B+23=NY THEN BEEP :LINECA 

.B+13-CA+7.B+83. 1 . BF :SC=SC+5 :SA=SA-1 :IF 

SA=0 THEN 870 

1900 IF A=48 AND B=91 AND BD=1 THEN PLAY 
"BACBGF". "GFEFCC" :GOSUB 2150 :SK=0 :BD=0 
1910 IF A=128 AND B=27 AND BA=1 THEN PLA 
Y"BACB6F" , "GFEFCC" :GOSUB 2150 :SK=0 :BA=0 
1920 IF A=128 AND B=163 AND BB=1 THEN PL 
AY"BACBGF" , "GFEFCC" :GOSUB 21 50 :SK=0 :BB=0 

1930 IF A=200 AND B=91 AND BC=1 THEN PLA 
Y"BACBGF" , "GFEFCC" :GOSUB 2150 :SK=0 :BC=0 
1940 IF X>A-10 AND X<A+10 AND Y>B-10 AND 
Y<B+10 THEN IF AL=11 THEN PLAY" T250O3BA 
DB02BAGGB" :GOTO 1050 ELSE IF AL=15 THEN 
GOSUB 2180 

1950 IF X1>A-10 AND XKA+10 AND Y1>B-10 
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AND YKB+10 THEN IF EL=3 THEN PLAY ! 'T250O 
3BADB02GFCFG" :GOTO 1050 ELSE IF EL = 15 TH 
EN GOSUB 2190 

1960 IF X2>A-10 AND X2<A-10 AND Y2>B-10 
AND Y2<B+10 THEN IF IL=7 THEN PLAY"T250O 
3BADB02EFCAE" :GOTO 1050 ELSE IF IL=15 TH 
EN GOSUB 2200 

1970 IF X3>A-10 AND X3<A+10 AND V3>b-10 

AND Y3<B+10 THEN IF UL=9 THEN PLAV"T250O 

3BADB02GDGBC" :GOTO 1050 ELSE I er UL=15 TH 

EN GOSUB 2210 

1980 * LIMITES 

1990 IF A>=208 THEN A^-208 

2000 IF A<^40 THEN A^40 

2010 IF 6>=Í71 THEN B-171 

2020 IF B<=19 THEN B=19 

2030 IF X2>=208 THEN X2=40 

2040 IF Y3=<19 THEN Y3-171 

2050 IF X>=208 THEN X^208 

2060 IF X<=40 THEN X=40 

2070 IF Y>=171 THEN Y=171 

2080 IF Y<=19 THEN Y=19 

2090 IF X2>A THEN X2=X2+UU*JI 

2100 IF X2<A THEN X2-X2+UU*JI 

2110 IF Y2<B THEN Y2=Y2+UU*J I 

2120 IF Y2>B THEN Y2-Y2-UUXJI 

2130 GOTO 1120 

2140 * UISUALIZACION DE PUNTOS 

2150 SC=S£+25 « ÓL=8 : Aü» 1 5 s Él . - 1 5 : 1 L= 1 5 : UL= 

15:RH=1 :JA=-1 sJE=--l sjl=-l :JU^-1 



2160 LI NEC 175, 10D-C230. 1 6 , 1 , BF : PSET C 1 70 
. 10D. 1 :COLOR 10 sPRINTttl . SC 
2170 RETURN 

2180 PLAV"T250O3DE" ÍX=40 :Y=13 : JÁ=1 ÍAL=11 
:SK=SK+1 :SC^SC+C200*S!O :FOR F-l TO 10: D S 
ETC113. 1850. 1 :COLOR 9 sPRINTttl , 200*SKsNEX 
T F : D SET C 1 1 3 . 1 85 J , 1 ! COLOR 1 sPRINTttl , 200* 
SK :GOSUB 2160: RETURN 

2190 PLAY"T250O3DE" :X1=208 : v l-13 : JE=1 SEL 
=3:SK=SK+1 :SC=SC-K200*SKD : r OR F-l TO 10: 
PSETC113, 185D. 1 :COLOR 9 sPRINTttl , 200*SK :N 
EXT F :PSETC 1 13. 1853.1 :COLOR i:PRINTttl,20 
0*SK:GOSUB 2160:RETURN 

2200 PLAY."T250O3DE" :X2"4g SY2-171 :JI=1 MI 
=7:SK=SK+1 sSC=SC+C200*SKD sFOR F-l TO 10: 
PSETC 113, 1853, 1 :COLOR 9 sPRINTfc 1 , 200*SK :N 
EXT F : p SETC 113. 185 3 , 1 : COLOR 1:PRINT#1.20 
0*SK: GOSUB 2160: RETURN 

2210 PLA V " T 250O3DE" :X3=208 :Y3--171 :JU=1 SU 
L«9:SK=SK+1 :SC«éc+C20Ó*SKD sFOR F-l TO 10 
:PSETC113. 1853, 1 :COLOR 9 sPRIMTttl , 200*SK : 
NEXT F:PSETCli3. 185D. 1 :COLOR 1 SPRINTS! ¿2 
00*SK:GOSUB 2160:RETURN 



Test de Listados 



El borra 



10 


-159 


330 


- 93 


650 


- 7 


970 


-247 


1290 


- 46 


1610 


20 


- 58 


340 


-248 


660 


- 4 


980 


-125 


1300 


- 62 


1620 


30 


- 58 


350 


-190 


670 


4 


990 


-166 


1310 


- 63 


1630 


40 


- 58 


360 


-236 


680 


- 4 


1000 


-170 


1320 


- 48 


1640 


50 


- 58 


370 


-154 


690 


- 4 


1010 


-174 


1330 


- 84 


1650 


60 


- 13 


380 


-204 


700 


- 4 


1020 


-157 


1340 


- 88 


1660 


70 


- 57 


390 


-179 


710 


- 10 


1030 


-191 


1350 


- 53 


1670 


80 


-224 


400 


-190 


720 


- 4 


1040 


- 58 


1360 


-113 


1680 


90 


- 


410 


-132 


730 


- 7 


1050 


-213 


1370 


- 35 


1690 


100 


-152 


420 


-235 


740 


- 6 


1060 


- 99 


1380 


- 41 


1 700 


110 


- 39 


430 


-190 


750 


- 6 


1070 


-215 


1390 


-251 


1710 


120 


-178 


440 


-136 


760 


- 10 


1080 


-120 


1400 


- 38 


1 720 


130' 


- 58 


450 


-237 


'770 


- 10 


1090 


- 81 


1410 


-222 


1730 


140 


-168 


460 


-190 


780 


- 6 


1 100 


- 42 


1420 


-104 


1740 


150 


-108 


470 


-140 


790 


- 6 


1110 


- 3 


1430 


- 69 


1750 


160 


-183 


480 


-239 


800 


- 8 


1120 


-157 


1440 


-203 


1 760 


170 


-187 


490 


- 58 


810 


- 10 


1130 


- 40 


1450 


- 76 


1770 


180 


-187 


500 


- 8 


820 


- 66 


1140 


- 39 


1460 


-206 


1780 


190 


-186 


510 


- 10 


830 


- 87 


1150 


- 43 


1470 


- 91 


1790 


200 


-188 


520 


- 8 


840 


-143 


1160 


- 44 


1480 


-2139 


1800 


210 


-195 


530 


- 8 


850 


- 10 


1170 


- 63 


1490 


-157 


1810 


220 


- 7 


540 


- 12 


860 


- 58 


1 180 


-234 


1500 


- 40 


1820 


230 


-191 


550 


- 10 


870 


-131 
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Monitor al día 




JOYSTICK DYNADATA 

Un mando muy fuerte 

La empresa Dynadata ha iniciado 
la comercialización — entre una 
amplia gama de periféricos para 
el estándar MSX — , de un joystick de 
notable presencia. Sus principales ca- 
racterísticas residen en la amplia base 
que lo apoya a la superficie, el diseño 
ergonómico del mando y la amplitud 
de sus botones de disparo. A simple 
vista este joystick, cuyo precio es de 
1.800 pts., ofrece una gran segundad al 
usuario por la fortaleza de su aspecto. 



MSX 

TAMBIEN EN ARGENTINA 

Lo fabricarán en el mismo 
país 

Dos compañías argentinas — Te- 
lemática S.A. y Noblex Argen- 
tina S.A. — han adquirido las 
licencias de dos aparatos de origen co- 
reano para fabricarlos en este país su- 
damericano. 

Telemática S.A. producirá en su 
planta de Sant Luis el MSX Daewoo 
DPC 200 de 64K, comercializado en 
España por Dynadata. Por su parte 
Noblex Argentina S.A. que posee fac- 
torías en Tierra del Fuego y en la ciu- 
dad de Resistencia, al sur y al norte dJ 
país respectivamente, desarrollará el 
home computer con licencia de 
Samsum. 

Con su actitud estas dos empresas 
contribuyen a la expansión de una nor- 
ma que día a día confirma su estandari- 
zación mundial. 



IDEALOCIC Y LA EDUCACION 

La empresa Idealogic, S.A. con el 
fin de desarrollar las actividades 
informáticas relacionadas con la 
educación, ha creado un centro espe- 
cífico. Se trata del Centro Logo Barce- 
lona, cuyos locales se encuentran en 
Entcnza 218 de Barcelona 08029 
(Tel. 322 26 14). El centro cuenta con 
un importante plantel de profesores, 
entre ellos profesionales de la educa- 
ción y la informática y también psicó- 
logos escolares, infantiles, pedagogos, 
etc. Con ello se pretende formar, ase- 
sorar tanto a empresas, fabricantes co- 
mo a educadores e instituciones dedi- 
cadas a la enseñanza. El Centro Logo, 
entre sus actividades también organiza 
cíelos de conlerencias con eminentes 
personalidades universitarias. 



YRM 102 FM 



Un programa de voces 
Yamaha 

Con el YRM 102 FM Voicing 
Program, Yamaha ofrecer un 
software capaz de controlar el 
generador digital de voz del ordenador 
CX5M y editar voces a partir de las 
propias de la máquina o bien creando 
otras totalmente nuevas. Con él el 
ordenador MSX actúa como un sinteti- 
zador que puede ser usado tanto para 
arreglos musicales como para la com- 
posición musical. Este programa viene 





a ampliar la gama de software destina- 
do a los músicos y que tienen en los 
ordenadores MSX la posibilidad de la 
experimentación. 




VENCIMIENTOS 



Un programa Sony en 
diskette 



p 



ara atender con total seguridad a 
los vencimientos de una empresa 
la casa Sony ya dispone de un 



MSX 

Y EL MUNDIAL DE MEXICO 



Gran promoción de Canon 



A fin de promócionár las ventas 
de la unidad MSX V-20, Canon 
sorteará entre todos aquellos 
que la compren importantes premios, 
el mayor de los cuales será un viaje a 
México oara asistir al Mundial de Fút- 
bol a celebrarse este ano. 

El modo de participar es rellenando 
una tarjeta que se da a la compra de un 
ordenador Canon V-20. Posteriormen- 
te el día 14 de este mes se celebrará ante 
notario el sorteo del cual surgirá el ga- 
nador. Posteriormente, en el diario El 

País del 17, aparecerá la lista de premia- 
dos. El primer premio consiste en un 
viaje a México para dos personas, con 
duración de dos semanas y el segundo 
es ile cinco unidades de lloppv dise, 
con capacidad de 720 K. 



programa en diskette. Este programa 
permite controlar hasta 7.0Ó0 venci- 
mientos, corregir datos del fichero, co- 
piar datos a un nuevo diskette, ordenar 
por fechas, introducir nuevos venci- 
mientos o pagos. Listarlos por pantalla 
o transmitirlos a impresora. Las posibi- 
lidades de acceso son casi instantáneas 
y el modo de utilización tan simple que 
nasta el más novato puede sacarle pro- 
vecho con gran seguridad. 



Computer 

Cassette 
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CINTAS ESPECIALES 
PARA ORDENADOR 

La Philips CP 15 

La cinta cassette CP 15 de Philips 
ha sido diseñado especialmente 
para el almacenaje de datos por 
ordenador. Entre los detalles más 
importantes, además de la calidad del 
material empleado, figuran la carencia 
de «drop outs», es decir partículas que 
pueden afectar a los programas graba- 
dos, y la ausencia de colas al principio y 
al final de la cinta. Esto permite que el 
usuario no se encuentre con la desagra- 
dable sorpresa de haber empezado la 
grabación antes que entre la cinta en sí. 
Las CP-15 tiene una duración de 7.5 
minutos por cara. 



MASTER COMPUTIER 



Enseña inglés 



T 



es el nombre de una cinta MSX 
realizada y producida por Mas- 
ter Computer, cuyo destino es el 



ffiasierfíCompiierl 



TRADUCTOR 




de facilitar el aprendizaje del inglés. El 
modo de utilización es muy sencillo y 
el método didáctico permite que el 
alumno vaya aumentando sus conoci- 
mientos paulatinamente. Sin duda este 
cassette será de gran ayuda para los que 
tienen esta materia en el colé. Su precio 
es de 1.800 pts. aproximadamente. 




JOYSTICK HC-J615 



Un periférico JVC 



Entre los periféricos desarrollados 
por JV(J para los ordenadores 
de la norma MSX, figura el ioys- 
tick HC-J615. Este mando de moderno 
diseño, dispone de dos botones de dis- 
paro y es agradable su manejo. Su color 
es gris oscuro metalizado, con los bo- 
tones de un verde que destaca, pero no 
desentona. El precio de este mando es 
de 4.100 pts. 



LAN MSX 




Red Local de Comunicaciones 



La Red Local de Comunicaciones (LAN) es un master comercializado 
por Spectravídeo a través de Indescomp, S. A. Este aparato — diseñado 
para el trabajo en colegios — permite la conexión con hasta 32 aparatos 
MSX de más de 64K, a una velocidad de transmisión de 230K por segundo, 
empleando el Sistema Operativo CP/M, un disco duro de ÍOM, capaz de 
almacenar una amplia bibiliteca. 
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Láser disc 



— 



LA NUEVA 

DIMENSION DELMSX 



A medida que el estándar MSX 
ocupa mayor espacio en el mer- 
cado, también se descubren 
nuevas posibilidades. Las apli- 
caciones interactivas con los 
discos láser son algunas de 
ellas. 




Varios de los fabricantes que 
optaron por lanzar el estándar 
mundial MSX tienen una am- 
plia y reconocida experiencia en el 
campo de la electrónica doméstica. Tal 
es el caso de compañías como Philips, 
Sony, Pioneer, JVC, etc. que se preo- 
cupan por obtener el máximo de rendi- 
miento de sus productos. Es con este 
criterio que no era difícil que se estu- 
diaran y se pusieran en practica todas 
las aplicaciones interactivas posibles te- 
niendo como base el ordenador MSX. 
Es en este sector precisamente que al- 
gunos fabricantes están trabajando, ya 
sea para transformar al ordenador en 
un cerebro musical, contable o para dar 
mayor realismo a las imágenes gráficas 
o de vídeo. 

En el campo de la imagen es donde se 
están realizando algunos experimentos 
verdaderamente interesantes, Pioneer, 
Philips, JVC y Sony han dado pasos 
importantes, obviamente en principio 
se experimentan con juegos, pero el 
objetivo es el plano educativo. 

Los primeros resultados parecen de 
ciencia ficción por el espectacular rea- 



lismo obtenido acoplando imágenes de 
discos láser a la acción del ordenador. 

Según hemos podido saber la empre- 
sa Vieta Audio Española, S.A. iniciará 
la comercialización del Pioneer PX7 
dentro de dos o tres meses y lo hará 
juntamente con una unidad de vídeo 
disco LD-700, ya que ambos son per- 
fectamente compatibles. Otro tanto 
ocurrirá con Philips con su Laser- 
visión. 

Lo novedoso de este no radica la co- 
mercialización de estas unidades de 
discos láser relacionándolas con las má- 
quinas MSX, sino en que ya existen en 
ej mercado europeo sofisticados juegos 
tipo arcade, como Dragon's Lair y As- 
tron Belt, que combinan secuencias de 
cine real con animación y gráficos de 
ordenador dando como resultado es- 
pectaculares efectos visuales. 

Este sistema permite que en lugar de 
esperar el más o menos lento progreso 
de colores y resolución de los juegos 
convecionaíes, se entre de lleno a imá- 
genes nítida, semejantes a las que pode- 
mos ver en el cine o la televisión. Pero 
la cosa no queda aquí, si tenemos en 



cuenta que en los Estados Unidos una 
firma ya ha diseñado un aparato llama- 
do Halcyon basado en el vídeo disco, 
que integra un sintetizador y un dispo- 
sitivo de reconocimiento de voz que 
permite dictarles las instrucciones en 
lugar de echar mano al joystick. 

Philips, que fue la primera compañía 
del mundo en desarrollar el disco láser, 
ha presentado recientemente en Berlín 
-^-entre sus últimas novedades tecnoló- 
gicas — , las aplicaciones interactivas del 
sistema MSX y el Laservision. También 
ÍVC trabaja en el mismo sentido para 
nacer compatible su vídeo disco VHD 
con su ordenador HC-7E. 

Claro que una vez lanzados las posi- 
blidades parecen ser ilimitadas y nasta 
se experimenta con una silla especial 
que se acopla al ordenador MSX y a la 
unidad de láser disc produciendo efec- 
tos visuales, sonoros y físicos extra- 
ordinarios. Hay que tener en cuenta 
que los MSX también pueden conec- 
tarse a una cadena de alta fidelidad para 
obtener un excelente sonido. 

La silla en cuestión se llama Bodyso- 
nic. Hay que instalarse en ella y cargar 
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el programa. Una vez cargado aparece- 
rá en pantalla con un fondo de película 
—supongamos que es un juego de mar- 
cianos — tipo «Guerra de las Galaxias» 
generada en el vídeo disco, mientras 
tanto el ordenador dibuja lo que se su- 
pone tiene que ser tu nave espacial en la 
pantalla. El programa de control, que 
va está cargado sincroniza los blancos a 
los que hay que destruir. Entonces, tú 
que estás sentado como un piloto in- 
tergaláctico, desde el mando que hay en 
el respaldo de la silla no sólo guías tu 
nave por el espacio sideral, sino que fi- 
jas el blanco y disparas. En el mismo 
momento el ordenador marca el lugar y 
genera una explosión cuyo estruendo 
se hace ensordecedor. 

El sonido generado por el chip del 
sonido del MTSX llega a través cíe los 
blaffes tipo orejeras que se encuentran 
en el respaldo, produciendo un efecto 
similar al de los cines equipados con 
Dolby Stereo. Al mismo tiempo, tres 
transductores — uno en el posapies y 
dos en la silla — sacuden tu cuerpo cada 
vez que alcanzan a tu nave dando la 
sensación del impacto que ha sufrido 



ésta. Tanto el efecto sonoro como el 
físico puede intensificarse a niveles más 
altos y obtener efectos tan sorprenden- 
tes que te harán ser muy prudente a la 
hora de enfrentarte y combatir con un 
enemigo. Ya no se trata de «matar» un 
marcianito y que no pase nada o que te 
den y tan tranquilo. El verismo es tal 
que si te sientas en una silla de esas, 
según dicen sus promotores, tienes una 
experiencia realmente única, como si 
realmente hubieses entrado en una 
nueva dimensión. 

Pero un láser disc no sólo sirve para 
mejorar los vídeojuegos. También es 
un elemento de gran importancia para 
complementar las posibilidades educa- 
tivas. Ten en cuenta que en una cara del 
disco se pueden almacenar más de cien 
mil fotos fijas, con la ventaja de que 
una capa protectora transparente recu- 
bre la superficie del disco lo cual lo ha- 
ce casi eterno. 

De todos modos esto no debe llevar 
a confusión y creer que un disco láser 
puede reemplazar a los floppy disc o 
cintas como elementos para el almace- 
naje de datos, ya que no se puede gra- 



La Bodysonic transfiere al jugador sensa- 
ciones espectaculares, tanto sónicas como 
físicas, de extraordinario realismo. 



bar en él. 

Tal vez la salida intermedia sea el 
empleo de un magnetoscopio o vídeo, 
pero el problema radica en el tiempo de 
búsqueda y en la imposibilidad de tener 
un acceso aleatorio. No obstante, si 
bien no se pueden realizar los efectos 
espectaculares que promete el láser disc 
sí se puede emplear el vídeo — a través 
de la salida RGB que por ahora sólo 
tienen el MSX Sony y el JVC — , para 
tareas educativas y desarrollar el 
grafismo. 
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Entrevista 



EL PAPA 
DE KRYPTON 




Eran muchos los lectores que día 
a día a través de cientos y cientos 
de cartas nos pedían que editára- 
mos una revista con cassette. Como es 
costumbre en nosotros nos tomamos 
muy en serio la opinión y reclamo de 
nuestros lectores y comenzamos a es- 
tudiar la posibilidad planteada. Sin 
embargo, las dificultades de carga, los 
inconvenientes en sacar una revista cu- 
yo contenido siempre iba a ser discuti- 
ble y otra serie de factores incidieron 
en la demora de hacer realidad lo que 
muchos estaban esperando. 

Además estaba en nuestro ánimo 
mantener a toda costa nuestra coheren- 
cia editorial. Y si desde el principio 
contamos con programas elaborados 
por españoles hubiese sido muy con- 
tradictorio editar cassettes con juegos o 
utilidades comprados al extranjero. Es 
en ese momento en que nos lanzamos a 
la búsqueda en los miles de cassettes 
que recibimos en nuestra redacción pa- 
ra concursar. De modo que es al éxito 
de nuestro concurso de programadores 
que debemos el descubrimiento de va- 
nos autores, el primero de los cuales es 
Rubén Jiménez Infante. 

Rubén Jiménez Infante es un hom- 
bre joven, que trabaja en una eran em- 
presa estatal y que dedica sus ñoras de 
ocio a la informática. El nos responde a 
algunas preguntas que revelan ciertos 
aspectos de su personalidad y nos 
muestra algunos puntos de Krypton. 
— Al caer en mis manos unos fascículos 
sobre el tema descubrí un campo de ili- 
mitadas posibilidades que me fascinó. 
Poco a poco fui consiguiendo mas libros, 
revistas etc. (entonces escaseaba bastan- 
te la bibliografía sobre estas cuestiones), 
hasta que por fin pude comprar un pe- 
queño ordenador de bolsillo con el que 
empecé a practicar, no sin ciertas difi- 
cultades, como era el hecho de que to- 
dos los manuales estaban en ingles y mis 
conocimientos sobre esa lengua no son 
demasiado extensos. No obstante y pese 
a todo ello fui practicando hasta la fe- 
cha, en que lo hago con un SONYMSX 
y digo practicando Porque en informá- 
tica nunca se puede decir que ya has 
aprendido. 

— En qué te inspiras para hacer un 
programa? 



— Depende de que tipo de programas se 
trate, si te refieres a los juegos las moti- 
vaciones son bien distintas, desde la lec- 
tura de un cómic hasta un paseo por la 
calle. 

— ¿Qué método sigues para hacer un 
programa? 

— También depende de qué tipo de pro- 
grama se trate. Por ejemplo, si es un 
programa de juegos, lo primero es hacer 
una especie de guión de cómo será la 
«historia» y los personajes que intervie- 
nen en ella (nave, obstáculos, etc.) y 
posteriormente diseñar los gráficos, las 
rutinas de movimiento, las dificultades, 
etc. Los programas que imitan de algu- 



Nuestro Departamento de Soft- 
ware abre un nuevo camino. El 
de las cassettes grabadas. Aquí 
les presentamos a Rubén Jimé- 
nez Infante, el autor de la pri- 
mera de una larga serie. 




na forma situaciones reales o la forma 
de pensar de las personas requieren un 
tratamiento distintos ya que aquí debe- 
mos ceñirnos a la realidad y a leyes bien 
definidas, de ahí que en este caso lo pri- 
mero es conseguir toda la documenta- 
ción necesaria sobre la cual basar el pro- 
grama y posteriormente considerar to- 
aos los factores que pueden intervenir 
en el resultado final. De cualquier for- 
ma una buena técnica es dejar que 
algún amigo utilice nuestro programa y 
nos dé su opinión, porque como dice el 
refrán «ven más cuatro ojos que dos». 
— ¿Qué tipos de programa prefieres? 
A la hora de programar sin duda los 
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Características 



La ciudad KR YPTON capital del pla- 
neta del mismo nombre, está siendo 
atacada por naves enemigas, que pre- 
tenden destruir la raza humana. 
Tu misión es evitar que destruyan la 
ciudad de KRYPTON, último bastión 
de la humanidad. Para ello dispones en 
la l" pantalla de un cañón láser, que 
lanza rayos a la posición donde se en- 
cuentra el punto de mira. Para destruir 
los ovnis deberás situar el punto de mira 



sobre la nave invasora con el joystick o 
con las teclas del cursor y apretar el bo- 
tón de fuego o la barra espadadora. 
Debes destruir todos los ovnis que com- 
ponen un ataque, antes de que ellos 
destruyan la ciudad, cosa que indica el 
marcador C que muestra la cantidad de 
ciudad destruida. Debes tener cuidado 
con el láser, pues posee una energía li- 
mitada para cada ataque. Si ésta se ago- 
ta el cañón explotara y la ciudad será 



juegos son los más creativos, en ellos to- 
do vale, podemos cambiar las leyes físi- 
cas y naturales a nuestro gusto, hacer un 
viaje por el espacio enfrentándonos a 
malvados alienígenas o correr una gran 
aventura por las grutas más tenebrosas. 
Sólo hay que echarle un poco de fanta- 
sía e imaginación al asunto. 
— ¿Tiene realmente utilidad la in- 
formática? 

— Bueno eso creo que está más que de- 
mostrado en el campo Industrial, Cien- 
tífico de gestión incluso en el cine. En el 
campo doméstico un ordenador además 
de poder ser una agenda, un contable o 
una secretaria, puede proporcionarnos 
grandes satisfacciones y muy buenos ra- 
tos de ocio, cualidades todas ellas bas- 
tante atractivas. En un futuro próximo 
un ordenador será poco menos que un 
esclavo doméstico que todos deberemos 
utilizar. Es una opinión. 
—¿Crees que llegará a ser impres- 
cindible? 

— Por poner un ejemplo, ya lo es en 
muchos campos. No serían posibles los 
viajes espaciales si no existiesen los 
ordenadores. 

— ¿Llegará a anular en algún aspecto al 
hombre? 

— No creo que anular sea la palabra, en 
todo caso sustituir, pero a esta pregunta 
debiera de contestarla un futurologo, 
no yo. Aunque sin duda para muchas 
tareas está ya hoy más cualificado un 
ordenador que un hombre. En tareas de 
cálculos complejos, trabajos mecánicos 
(robots) no así para otros que requieren 
adaptarse a situaciones muy distintas 
que un ordenador no podría considerar. 
— ¿Qué lenguaje consideras el más 
sencillo? 

— Sin duda el BASIC y dentro de éste el 
MSX según las personas. Si bien todos 
los lenguajes pueden ser sencillos o no. 
En el caso de los ordenadores MSX, a la 
sencillez y potencia de su BASIC hay 
que sumar algo muy importante: su 
compatibilidad. 

— Un consejo para los demás usuarios, 
Rubén. 

Sólo uno: que no se desanimen si al 
principio cuesta, esto es sólo cuestión de 
práctica, además también cuesta apren- 
der a andar y todos acabamos apren- 
diendo ¿no? Y que se diviertan con 
Krypton. 



destruida. 

Si logras superar un ataque recibirás 
una puntuación extra y pasarás a la si- 

fuiente pantalla, 
n esta pantalla, la misión es la misma 
pero tus armas son naves de combate. 
Estas naves se mueven en todas las di- 
recciones con el joystick o las teclas del 
cursor. Estas naves disparan rayos láser 
que se accionan con el botón de fuego o 
con la barra de espado. En esta pantalla 
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Entrevista 



además de destruir los ovnis, debes pro- 
curar no chocar con ellos, ni con los me- 
teoritos que son indestructibles, y des- 
truyen tu nave, aunque no ocurra siem- 
pre, pues también depende de tu suerte 
o habilidad. Para destruir los ovnis de- 
bes disparar el rayo láser, pero no siem- 
pre caen al primer impacto, pues algu- 



nos necesitan varios. Dispones de cuatro 
naves para pasar esta pantalla. La ener- 
gía del láser disponible es la misma para 
las cuatro pantallas, es decir, que si gas- 
tas mucha con la primera te quedará 
poca para las demás. 
Si destruyen todas tus naves o gastas to- 
da la energía o destruyen la ciudad, el 



juego finalizará. Si logras destruir todos 
los ovnis volverás a la I a pantalla pero 
con más naves enemigas. 
Ganas cuando consigues hacer 990.000 
puntos a 36 pantallas en cuyo caso apa- 
recerá la palabra «VICTORIA» en la 
pantalla. 



KRYPTON 



Tema: 

Destruir OVNIS que atacan a una 
ciudad, defendida con un rayo láser. 

MARCADOR 

A =ataque en curso 
C= destrucción dudad 
P= puntos 

L= energía consumida 



COMIENZO 



PREPARACION 



A subrutina de dibujo 
de pantalla 



Cada N segundos 



Subrutina de movimiento 
del OVNI 



Subrutina de disparo 
del OVNI 



NO 



Hay disparo? 



lutina («mover punto de mira> 
central 



NO 



Hay disparo 



RETORNO 



SI 



NO 



Hay impacto en una 
parte no destruida 
de la ciudad? 



SI 



NO 



Está destruida toda la ciudad? 



SI 



A subrutina de 
explosión atómica y 
FIN del juego 



Actualizar el marcador 



Regreso al programa principal 



SI 



NO 



Está el punto de mira 
en el OVNI 



SI 



Destrucción del OVNI 



Actualizar el marcador 



NO 



Quedan más OVNIS? 



NO 



Segunda pantalla 



SI 



Queda más láser 



A rutina principal 
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El extraordinario éxito que hemos 
tenido en pocos meses con este 
concurso nos conduce indefecti- 
blemente a continuar este año, mejo- 
rando la dotación de los premios e in- 
centivando a aquéllos que se orienten 
hacia el sector educativo, didáctico y la 
aplicación. 

Desde mayo de 1985 hasta noviem- 
bre hemos editado siete números de 
MSX CLUB DE PROGRAMAS en 
los cuales hemos dedicado 130 páginas 
a listados, con 53 programas, de los 
cuales 26 pertenecen a nuestros lec- 
tores. 

En la selección y publicación hemos 
procurado que todos, al margen de las 
consideraciones temáticas, tuviesen un 
nivel parejo de calidad de modo que 
para elegir al mejor los votantes lo tu- 
viesen muy difícil. Y así ha sido, puesto 
que el ganador lo es por un margen 
muy escaso. 

Francisco Urbano Reinaldo -Pedraya, 
4 - Marbella- ha ganado nuestro 
trofeo: 

JOYSTICK DE ORO 1985 

k también una IMPRESORA TIPO 
OTTER valorada en 70.000 pts. 



TENEMOS GANADOR 



LOS LECTORES ELIGIERON 
EL «PROGRAMA DEL AÑO» 



MI PROGRAMA DEL AÑO 1985: 

«LA PIRAMIDE» 
DE 

FRANCISCO 
URBANO 
REINALDO 



VOTANTES PREMIADOS 

Entre los cientos de votantes que han 
participado para elegir a MI PRO- 
GRAMA 1985 y de acuerdo con las ba- 
ses de votación hemos sorteado cartu- 
chos y cassettes entre los que votaron al 
programa que resultó ganador y al que 
quedó en segundo término, BARCE- 
LONA OLIMPICA, de Humberto 
Martínez Barberá de Cartagena. 

José Luis Rojano Piernagorda 
Camarro, 2 - Alcorcón (Madrid) 
David Forés Marzá 



Mayor, 22 - Moneada (Valencia) 
César Patino Várela 
Pontevedra 2114 - Rota Naval (Cádiz) 
Antonio E. Lázaro Soriano 
Seu de Urgel, 6 - Terrasa (Barcelona) 
Fé de Juan Olalla 
Tamarite, 2 - Huesca 
Héctor Martínez Pérez 
Gral. Franco, 53 - Los Cristianos (Te- 
nerife) 

Ramón Soto Clupes 
Ferrer i Dalmau, 28 - Mataró (Barcelo- 
na) 

Félix Villota Fernández 

Carmen Medrano, 2 - Logroño 

Miquel Piqueras Nieto 

Costa Bona, 40-42 - Ciudad Meridiana 

Fernando González Fernández 

Plza. Isla de Fuerteventura, 4 - Madrid 

A TODOS ELLOS NUESTRAS FE- 
LICITACIONES Y A NUESTROS 
LECTORES EN GENERAL NUES- 
TRO AGRADECIMIENTO POR EL 
ALTO INDICE DE PARTICIPA- 
CION, QUE HACE QUE NUES- 
TRAS PUBLICACIONES SEAN 
LAS DE MAYOR VENTA EN EL 
SECTOR DEL MSX. 



PREMIOS DEL PRIMER 
FESTIVAL DE SOFTWARE 

Organizado por el Centro 
Divulgador de la 
Informática 



En un acto celebrado en el Palacio 
de la Generalitat de Cataluña, se 
dieron a conocer los ganadores 
del Primer Festival de Software organi- 
zado por el Centro Divulgador de la 
Informática. El acto, al que asistió nu- 
meroso público, estuvo presidido por 
el Conseller Josep Miró i Ardévol, en 
representación del Presidente de la Ge- 
neralitat, Jordi Pujol, y el director del 
Centro Divulgador de la Informática, 
Santiago Guiuén. 

Los premiados fueron los siguientes: 

— Primer premio sénior: 
DSM III Diagnostic Psiquiatric 
Josep M.' Bague Roure 

— Primer premio júnior: 



Volums 

Rafael Botey Agustí 

Mejor juego educativo júnior: 
Volums 

Rafael Botey Agustí 

Mejor juego educativo sénior: 

Club de Rubik 

Miquel Morell Mestre 

Mejor programa de uso doméstico: 

Entrenamiento Atlético por Ordenador 

Luis Antonio Arruga 

Mejor juego sénior: 

El solitario 

Miguel Morell Mestre 

Mejor juego júnior: 

Cálculo mental 

Ferrán Guirao Cartagena 

Mejor Programa Didáctico júnior: 

Reaccions Acid-Base 

Íosep Montaña Canadell 
lejor Programa Didáctico sénior: 
Horizon 

Íosé L. Cabal Sta. María 
-lejor Programa relacionado con la in- 
geniería 
Pendolado 

Javier Sandoval Aguado 

Mejor Programa de aplicación en agri- 



cultura: 

Cunicultura 

Xavier Prat Burdo 

Mejor Programa de Creatividad 

Compositor y Director Musical 

Jordi Martínez 

Mejor Programa de Normalización 

Lingüística: 

España 

Torge Benedet 

Mejor Programa de Utilidad: 
Astronomía 
Miquel Vilalta Feixas 
Mejor Programa 
Arquitectura: 
Mapes 

Tosep Lluis Pérez Baeza 

Mejor Programa de 
Empresa: 
Columna de Destilación 
Antonio Creus Solé 
Mejor Programa Educativo para niños: 
Química 

Iván Castelltort i Parera 

En el transcurso del acto, el guitarrista 
Joan Garrobé interpretó música clásica 
acompañado por música procesada por 
ordenador. 



con la 



en la 
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PPI (interface programadle) VDP (Vídeo Display Processor) 




de PROGRAMAS 



REGALATE EN ESTAS FIESTAS UN LIBRO 
VITAL PARA EL USUARIO DE MSX 



UN LIBRO PENSADO 
PARA TODOS LOS QUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 

Construcción de programas. El po- 
tente editor todo pantalla. Constan- 
tes numéricas. Series, tablas y ca- 
denas. Grabación de programas. 
Gestión de archivo y grabación de 
datos. Tratamiento de errores. Los 
gráficos del MSX. Los sonidos del 
MSX. Las interrupciones. Introduc- 
ción al lenguaje máquina. 



.IAVII H GUI kui no .11 AN CARLOS GONZAI i / 



¡an ai» trndtfi d» »l»tiKló» 
componer muskd a una. do* o ttf * voces 



LOS SECRETOS DEL 




Y ADEMAS PROGRAMAS 
DE EJEMPLO 

Alfabético. Canon a tres voces. 
Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. 
La Flauta Mágica de Mozart. Scrap- 
ple from the apple & Donna Lee. The 
entretainer. Teclee un número. Ca- 
lendario perpetuo. Modificación Ta- 
bla de colores SCREEN 1 . Rectán- 
gulos en 3-D. Juego de caracteres 
alfabéticos en todos los modos. Jue- 
go Matemático. Más grande más pe- 
queño. Poker. Breackout. Apocalyp- 
se Now. El robot saltarín. El archivo 
en casa. 



Deseo me envíen el libro Los secretos del MSX, para lo cual adjunto talón de 1.500 ptas. a la orden de 
MANHATTAN TRANSFER, S.A. 

Nombre y apellidos 

Cal| e n.° Ciudad ZZZZZZZZZIZZffiZ 

Este boletín me da derecho a recibir los secretos MSX en mi domicilio libre de gastos de envío o 
cualquier otro cargo. 

importante: Indicar en el sobre MANHATTAN TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle. 10-12 Bajos-08023 BARCELONA 



"i 



SORPRENDE A UN AMIGO FELICITANDOLE ESTAS FIESTAS CON 

UN REGALO PARA TODO EL AÑO 




L_ 



Deseo remitan LOS SECRETOS DEL MSX a 

Nombre y apellidos 

Calle N.° Ciudad CP 

De parte de 

Nombre y7apellidos 

Para lo cual adjunto talón del Banco/Caja. N.° de 1 .500 - ptas. 

Dicho libro sera remitido por correo certificado incluyendo una felicitación personalizada del 
remitente. 

Remitir el talón a nombre de: 

MANHATTAN TRANSFER, S.A. Roca I Batlle, 10-12 bajos - 08023 Barcelona 
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Bee Card 



LA TARJETA 
INTELIGENTE 



La BEE CARD es un circui- 
to integrado de memoria (un 
chip) montado sobre una 
tarjeta de plástico del ta- 
maño de una tartjeta de cré- 
dito de formato estándar. 
Este software es auténtica- 
mente revolucionario por su 
gran capacidad y sus reduci- 
das dimensiones. 




La BEE CARD fue patentada a 
principios de 1983 en Japón por 
Hudson Soft Co. Ltd y Mitsu- 
bishi Plástic Industry. Antes de comer- 
cializar este revolucionario producto 
en 1984, la BEE CARD fue sometida a 
muy diversas pruebas, como son por 
ejemplo la prueba de flexibilidad, de 
electricidad estática, mecánicos de re- 
sistencia a los agentes químicos etc. Es- 
ta BEE CARD tiene muy diversas apli- 
caciones: además de ser un sistema de 
almacenaje de memoria como puede ser 
un cassette o un floppy disk, se presen- 
ta en estos interesantes formatos: 



BEE CARD de sólo lectura (Mask 
ROM Card). Este tipo de tarjeta sirve 
para almacenar una gran cantidad de 
información del mismo tipo, por lo 
tanto, está prioritariamente destinada a 
los fabricantes de software tanto de 
juegos como educativo o de promoción 
de ventas. BEE CARD de escritura y 
lectura (EP ROM Card). Con este sis- 
tema de BEE CARD de escritura y lec- 
tura (EP ROM Card). Con este sistema 
de BEE CARD podemos escribir pro- 
gramas y datos siempre y cuando dis- 
pongamos del dispositivo programable 
para escribir la información en la tarje- 



ta. Las principales aplicaciones son : 
Datos de oficina o ae producción. 
Archivos de clientes. 
Archivos médicos o sanitarios. 

El tercer formato en el que se pre- 
senta la BEE CARD es el de REP 
ROM. CARD. Una BEE CARD de 
estas características permite — además 
de la lectura y la escritura — el borrado 
y la reescritura de la información. Estas 
posibilidades convierten a este tipo de 
tarjeta en un soporte de información de 
posibilidades prácticamente ilimitadas, 
sobre todo relacionadas con los nuevos 
sistemas de comunicaciones. 
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Bee Card 



Características técnicas de la BEE CARD: 





Tipos y tamaños 
de memoria 


Tamaño 


N.° de 
terminales 


Conexión a 
ordenador 


de solo lectura 
(Mask ROM) 

escritura y 
lectura (EP ROM) 

lectura y 

reescritura (EEP ROM) 


MASK ROM 
64,128,256 k y lm 

EP ROM 
64,128,256 k 

EEP ROM 
64 y 256 k 


el mismo de una 
tarjeta de crédito 

86 x 54 x 1.8 mm 


32 terminales (pins) 
paso de 1.6 mm 


Adaptador especial 
Bee Pack o 
conector especial 



La BEE CARD pese a su reducido 
tamaño y aparente fragilidad, ha sido 
sometida a diversos controles de resis- 
tencia y calidad, superándolos todos de 
manera satisfactoria. Entre otras cosas, 
ha sido sometida a una prueba de 
impacto (dejándose caer sobre ella una 
bola de acero de 1/2 kg. de peso desde 
una altura de 30 cm.): a una prueba de 
temperatura y humedad (dejada a una 
temperatura de 60° C y con una hume- 
dad del 80 % durante 6 meses); a una 
prueba de resistencia a los agentes quí- 
micos (sumergiéndola en una disolu- 
ción al 5 % de ácido acético durante 24 
horas) y por fin, a la prueba más dura 
de todas: fue llevada en el bolsillo tra- 
sero del pantalón durante 40 días por 
100 persona diferentes. 

Todas estas características de la BEE 
CARD nos permiten augurarle un bri- 




llante futuro a este medio de almacena- 
miento de información. Piensen nues- 
tros lectores que en Japón actualmente 
se están utilizando estas tarjetas para 



acceder a redes de comunicación, ban- 
cos de datos, reservas de hoteles, tea- 
tros... esta red se llama «Honeycomb 
Une», y tal vez pronto esté en España. 



FIGURA 1 



CARA 
CONECTORA 



BEE CARD 1NTELLIGLNT CARD ROM CARD (ASIGNACION DE PINS) 








1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


U 


15 


16 


17 


18 


19 


20 


21 


22 


23 


2i 


25 


26 


27 


26 


29 


30 


31 






Au 


Ais 


V PP 


Au 


A? 


As 


As 


A« 


Ai 


As 


Ai 


Ao 


Do 


Di 


Di 


V.SS 


Dj 


D« 


Di 


D« 


D> 


CE 


A.o 


SE 

Ai. 


A„ 


A. 


A. 


Au 


Au 




Vec 


NC 





CARA TARJETA ' 

Mask 128Kbit 
256Kbit 
1 Mbit 



NC 


NC 


NC 


Au 




NC 


NC 


NC 


Au 




NC 


A,5 


NC 


Au 





DITTO 
DITTO 
DITTO 

























0É 


Au 


A 9 


A» 


An 


NC 


NC 


Vcc 


NC 




0E 


Au 


Ai 


A. 


Au 


Au 


NC 


Vcc 


NC 




Al6 


An 


Ai 


As 


Au 


Au 


NC 


Vcc 


NC 



EP 



64Kbit 
128Kbit 
256Kbit 



NC 


NC 


V PP 


Au 




NC 


NC 




Vec 


NC 


DITTO 


NC 


NC 


Vpp 


Au 






NC 




Vcc 


NC 


" DITTO 


Au 


NC 


NC 


Vpp 


Au 




Au 


Au 


NC 


Vcc 


NC 


* DITTO 



EEP 64Kbit 
(256Kbit) 



NC 


NC 


NC 


An 


nTTTfl 


NC 


NC 


¡re 


Vcc 














NC 


Au 


NC 


NC 


Au 


DITTO 






NC 




Vcc 








An 


NC 
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CONECTOR CON EL HARDWARE 



BEEPACK ESTRUCTURA 



BEE PACK 



BEE CARD 
CONECTOR 




BEE CARD 



A continuación, le ofrecemos el formato de la BEE CARD 



Dirección 
DATO 

00000: DB 42H ;«B» 

00001: DB 42H ;«C» 

Los dos primeros bytes deben ser 
42H y 43H para la BEE CARD 

00002: DB TIPO ROM/RAM (OOH- 
FFH)indica el tipo de memoria 
00H prohibido 
10H prohibido 
01H sólo para CMOS RAM 
02H sólo para EEP ROM 
03H sólo para EPROM 
04H sólo para ROM de una sola 
vez o MASK ROM 
12H EEPROM + CMOS RAM 
13H EP ROM + CMOS RAM 
14H ROM de una sola vez, MASK 
ROM + CMOS RAM 
21H CMOS RAM + EEP ROM 
31H CMOS RAM + EP ROM 
41H CMOS RAM + ROM de una 
sola vez, MASK ROM 

00003: DB MAX LOW (OOH-FFH) 

00004: DB MAX MIDDLE (OOH-FFH) 

00005: DB MAX HIGH (OOH-OFH) 

indican la capacidad máxima de la 
BEE CARD estos tres bytes 

00006: DB SECOND ADRESS LOW 
(OO-FFH) 

00007: DB SECOND ADRESS MIDDLE 
(OOH-FFH) 

00008: DB SECOND ADRESS HIGH 
(OOH-OFH) 

indican el comienzo de la segunda 
área de memoria 



00009: DB «HUDSON» 

indicará el nombre de la compañía 
que manufacture la BEE CARDS 

DIRECTORIO 



00001 



00011 



00013 

00023 
00024 
00025 
00026 



00027: 
00028 

00029: 



DB FILE TYPE 

00H Fin de directorio 

01H Programa objeto 

02H Datos 

03H Datos ASCII 

04H Datos SFT JIS 

??H Otros 
DB CPU ÑAME (2 bj 

0,0 : Para cualqi 

«80» : 8080 

«85» : 8085 

«Z8» : z80 

«65» : 6502 

«09» : 6809 

«88» : 8088 

«86» : 8086 

«68» : 68000 

«??» : Otros 
DB FILE ÑAME (16 bytes) 

Nombre del dato o programa. 
DB PASS WORD (1 byte) 
DB FILE LENGTH LOW 
DB FILE LENGTH MIDDLE 
DB FILE LENGTH HIGH 

Longitud del dato o 
programa. 

DB FILE LOAD ADRESS LOW 
DB FILE LOAD ADRESS 
MIDDLE 

DB FILE LOAD ADRESS HIGH 



Dirección de carga de un 

0002A:DB HLE EXEC ADRESS LOW 
0002B: DB FILE EXEC ADRESS 
MIDDLE 

0002C:DB FILE EXEC ADRESS HIGH 
Dirección de ejecución de un 

programa 
0002D:DB BEE CARD NEXT DIR 

ADRESS LOW 
0002E: DB BEE CARD NEXT DIR 

ADRESS MIDDLE 
0002F: DB BEE CARD NEXT DIR 

ADRESS HIGH 

Si la dirección alta del siguiente 

directorio de la BEE CARD es 

OFFH termina este archivo. 
00030: DATOS Y PROGRAMA 

XXXXX 



SEGUNDO DIRECTORIO 

(32 bytes) 

NEXT DIR ADRESS=YYYYY: 
XXXXX +20H : DATOS Y 
PROGRAMA 
YYYYY: 



TERCER DIRECTORIO 

(32 bytes) 

NEXT DIR ADDRESS=ZZZZZ: 
DATOS Y PROGRAMA 
ZZZZZ : DB 

Byte de fin de directorio 



Programa 







— 



Por Diego Castaño Rodríguez 



MATEMATICAS 



Muchos lectores encontra- 
rán en este programa educa- 
tivo una gran ayuda, ya que 
contiene los teoremas de Pi- 
tágoras, del cateto y la altura 
y polígonos, sus fórmulas y 
el modo de resolver pro- 



10 ' ************************** 

20 ' *** MATEMATICAS *** 
30 ' *** PARA *** 

40 ' *** MSX CLUB *** 

50 ' *** POR KILüI SOFT *** 
60 ' ************************** 
70 SCREEN2:C0L0R .1,1 :CLS 
80 CL0SE:0PEN"GRP:"AS#1 

90 DRALTBM10.25" :PRINT#1, " J A S I C 

100 COLOR 6:DRAW"BM10,50" :DRAUJ"R25ri5E15R25D10L5D70R5D10L20U10R5U70G25H25D70R5Dl 
0L20U10R5U70L5U10" 

110 C0L0R2 :DRAÜJ"BM1 10,50" :DRAUJ ,, R40D15L10U5L20D30R30D50L40U15R1 0D5R20U30L30U50" 
120 COLOR 4 :DRAU)"BM160,50":DRAUT'R15M202,85M230,50R15D10L8M210,95M237,130R8D10L1 
5M203, 105M175, 140L15U10R8M195, 95M168, 60L8U10" 
130 PAINTC55,70],6 
140 PAINTC128.96D.2 
150 PAINTC202.95D.4 

160 DRAtd"BM5,170":PRINT#l," CtD MSX CLUB DE PROGRAMAS " 
170 F0RD=1 TO4000 :NEXTD 
180 CLS 

190 FORD-1TO1000:NEXTD 
200 SCREEN 2:C0L0R 12,l,l:CLS 
210 CLOSE:OPEN"GRP:"ASttl 
220 C0L0R12 :DRAUI"BM20,20" :PRINT#1 
230 LINEC255, 1 92D-C0, 03 . 12, B 
240 LINEC245. 182D-C10. 103. 12. B 
250 PAINTC5.53, 12. 12 

260 DRALTBM32. 136" :DRAU"R24U8L8U72L8G8D8R8D56L8D8" 
270 DRAUI"BM64, 136" :DRAW"R8U8L8D8" 

280 DRAW"BM96, 136" :DRAU"R24U8L8U72L32D32R24U8L16U16R16D64L8D8" 
290 DRAlü"BM136, 136" :DRALÜ"R32U8L24U32R24U8L24U24R24D72R8U80L40D80" 
300 DRAUI"BM192, 136" :DRAUJ"R32U48L24U24R24U8L32D40R24D32L16U16L8D24 
310 PAINTC44.963. 12. 12 
320 PAINTC68, 1323.12. 12 
330 PAINTC 108.963. 12, 12 
340 PAINTC152.91D. 12. 12 . 
350 PAINTC208.923, 12, 12 
360 F0RI=1T015 

370 LINEC224,1603-C32.1443,I,BF 
380 FORD=1TO4000:NEXTD 
390 CLS 

400 FORD=1TO500:NEXTD 

410 SCREEN0:ljJIDTH38:COLOR 12.1.1 :CLS ¡KEYOFF 
420 PRINT 



-Copy r i gh t. : K i uj i Soft 



430 PRINT" 
440 PRINT" 
450 PRINT" 
460 PRINT" 
470 PRINT" 
480 PRINT" 
490 PRINT" 
500 PRINT" 
510 PRINT" 



PROBLEMAS DE MATEMATICAS 



MSX CLUB' Kiwi Soft. MSX CLUB 
I I 



1- TEOREMA DE P I TAGORAS 



42 



Programa 



520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 

900 

910 
920 
930 
940 
950 
960 
970 
980 
990 



PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 



2- TEOREMA DEL CATETO 



3- TEOREMA DE LA ALTURA 



4- POLIGONO 



COMPATIBLE CON TODOS LOS MSX 



ona el no. d'e opción 



TEOREMA DE_PITAGORAS 



CC3K¡w¡ Soft. 1985 



-1 FORMULAS BASICAS 
-2 CATETO MAYOR C A 3 
-3 CATETO MENOR CB3 
-4 HIPOTENUSA CH3 
-5 RETORNO AL MENU 



PRINT: PRINT :PRINT"Se lecc 
A$=INKEY$ 
IF A$=" "THEN 620 
BEEP 

IF A$<" 1 "ORA$> "4" THEN 620 
ON UALCAS3GOTO 670.1300.1990,2560 
SCREEN 1 :üJIDTH31 :COLOR 12,1,1 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
A$=INKEY$ 
IF A$=""THEN860 
BEEP 

IF A$<"1"0RA$>"5" THEN 860 
ON UALCAS3GOTO 910.1070,1160.1230,410 
CLSrSCREEN 2:COLOR 15.4.7:CLS 
CLOSE :OPEN"GRP : "AS#1 
COLOR15:DRAU"BM10, 10" :PRINT#1 
COLOR15:DRAU"BM10.20 
COLOR15:DRAU"BM10,30 
COLOR15:DRAU"BM10,40 
COLOR 1 :DRAU"BM10,65 
COLOR 1 :DRAUI"BM10,72" :PRINT#1, 
DRAlü"BM100, 100" 
1000 COLOR 15:DRALü"D50R70M100, 100" :PAINTC110, 1253, 15, 15 
1010 COLOR 1 :DRAüJ"BM90, 125" :PRINT#1 , "B" 
COLOR 1 :DRAU"BM135, 160" :PRINT#1, "A" 
COLOR 1 :DRAU"BM138, 113" :PRINT#1, "H" 

COLOR15:DRAU"BM10, 180" :PRINT#1. "Pulsa una tecla para cont 
IF INKEY$=""THEND=RNDCn :GOTO 1050 
GOTO 670 

CLS.-SCREEN 1 :COLOR 15,4,7 
PRINT :PRI NT " A~2=-H~2-B~2 " :PRINT 
INPUT" HIPOTENUSA ":H:PRINT 
INPUT" CATETO MENOR ":B:PRINT 
A=H~2-B~2 

PRINT" CATETO MAYOR^ " ¡CSNGCSQRC A3 3 
LOCATE 0,20:PRINT"Pulsa una tecla para continuar" 
IF INKEY$=" "THEND=RNDC 1 3 :GOTO 1140 
GOTO 670 

CLS:SCREEN 1 :COLOR 15.4,7 



:PRINTttl 
:PRINTttl 
:PRINTttl 
:PRINT#1 



" En un triángulo rectángulo," 

"el cuadrado de la hipotenusa" 

"es igual a la suma de los cu-' 

"adrados de los catetos." 

" H /S 2=A' V 2+B /S 2" 
i! ' • 



1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1 120 
1130 
1 140 
1 150 
1 160 



nuar 



1 170 
1 180 
1 190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1630 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 



TEOREMA DEL CATETO 
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PRINT :PRINT ,h B~2=H~2-A^2" :PRINT 
INPUT" HIPOTENUSA ":H:PRINT 
INPUT" CATETO MAYOR " ;A:PRINT 
B=hT2-A~2 

PRINT" CATETO MENOR= " ¡CSNGCSQRCBD 3 
GOTO 1130 

CLS:SCREEN 1 :COLOR 15.4,7 
PRINT :PRINT" H~2=A~2+B~2 " :PRINT 
INPUT" CATETO MAYOR ":A:PRINT 
INPUT" CATETO MENOR ":B:PRINT 
H=A~2+B"2 

PRINT" HIPOTENUSA= " :CSNGCSQRCH3 } 
GOTO 1130 

WIDTH31 :KEY OFF :SCREEN0 ¡COLOR 12.1,1 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
A$=INKEY$ 
IF A$="" THEN 
BEEP 

IF A$<"1 "ORA$> "4" THEN 1470 
ON UALCAÜOGOTO 1520,1810,1900.410 
SCREEN 2:COLOR 15,4,7:CLS 
CLOSE :OPEN"GRP : "AS#1 
DRAüJ "BM 80, 140" :DRAUJ"R1 20H60G60" 
DRAU"BM138.80" :PRINT#1 , " ! " 
DRAU"BM138,88" :PRINT#1 , " ! 
DRAU"BM138.96" :PRINT#1 , " ! 
DRAUTBM138, 104" :PRINT#1, " 
DRAWBM138. 112" :PRINTttl, " 
DRAU"BM138. 120" :PRINT#1, " 
DRAU"BM138, 128" :PRINT#1, " 
DRAüJ"BM138, 132" rPRINTttl, " 
DRAU"BM138.70" :PRINT#1, 
DRAUI"BM70 , 138" :PRINTttl 
DRAW"BM105. 100" '.PRINTttl 
DRAU"BM170, 100" :PRINT#1 
:PRINT#1 
:PRINT#1 
:PRINT#1 
:PRINT#1 



-1 FORMULA BASICA 
-2 METODO PRIMERO 
-3 METODO SEGUNDO 
-4 RETORNO AL MENU 



1470 



DRAU"BM138, 142' 
DRALTBM205, 138' 
DRAU"BM108, 145' 
DRAW"BM168, 145' 
DRAUJ"BM7,0" :PRINT#1, "En 
DRAüJ"BM7, 10" :PRINT#1 
DRAüJ"bm7, 20" :PRINT#1 
DRAüJ"BM7.30" :PRINT#1 
COLORI :DRAU"BM7.45" 



"A" 
, "B" 
, "c" 
, "b" 

, "C" 
. "M" 
, "N" 

todo triángulo rectángulo" 
,"es medid, proporcional entre" 
, "la. hipotenusa y su proyección 
, "sob re ella." 
:PRINT#1 , " A/B=A'/B' " 



COLORI :DRAU"BM7.51" :PRINT#1, " 

COLOR 1 :DRAU"bm7.53" íPRINTttl , " " 

COLOR 15 :DRAUI"BM7, 182" ¡PRINTttl, "Pulsa una tecla para continuar 1 

IF INKEY$=" "THEN D=RNDC 1 JíQOTO 1790 

GOTO1300 

CLS:SCREEN1 :COLOR 15.4,7 

PRINT :PRINT" CfVB=A* /B' ]=A/B=C/D" :PRINT 

PRINT"A/C=C/M" :PRINT 

INPUT"CATETO" :C:PRINT 



Programa 



1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 
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-1 FORMULA BASICA 

-2 SOLUCION 

-3 RETORNO AL MENU 



THEN 2140 



INPUT"SU PROYECCION" :M:PRINT 
A=C~2/M:PRINT"HIP0TENUSA= " ¡CSNGCAD 
LOCATE 0. 20 :PRINT"Pu Isa una tecla, para continuar" 
IF INKEY$="" THEN D=RNDC 1 3 s GOTO 1880 
GOTO 1300 

CLS:SCREEN1 : COLOR 15,4,7 
PRINT ¡PRINT" [A/B^A'/B* ]=ñ/B=C/'D" ¡PRINT 
PRINT"A/B=B/N" ¡PRINT 
INPUT"CATETO" :B:PRINT 
INPUT"SU PROYECCION" :N:PRINT 
A=B~2/N¡PRINT"HIP0TENUSA= " ¡CSNGCA] 
LOCATE 0, 20 :PRINT"Pu Isa una tecla para continuar" 
IF INKEY$=" " THEN D-RNDC 1 D :GOTO 1970 
GOTO 1300 

UIIDTH31 :SCREEN0 ¡COLOR 12,1,1 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
• A$=If 
IF A$="" 
BEEP 

IF A$<"1"0RA$>"3" THEN 2140 
ON UALCA$3GOTO 2190,2470,410 
SCREEN 2:C0L0R 15,4,7¡CLS 
CLOSE¡OPEN"GRP¡"ASttl 

DRAU"BM7,0" ¡PRINT #l,"En un triángulo rectángulo la " 
DRAU"BM7, 10" ¡PRINT #1, "altura es media proporcional " 
DRAUJ"BM7, 20" ¡PRINT #1, "entre las proyecciones de los" 
DRAWBM7, 30" ¡PRINT #1, "catetos sobre la hipotenusa. " 
COLOR 1 ¡DRAUTBM10, 60" ¡PRINT #1 , "M/H-H/N" 

COLOR 1 ¡DRALü"BM10, 66" ¡PRINT ttl," " 

COLOR 15 ¡DRALü"BM 80, 140" ¡DRAU"R120H60G60" 

DRALü"BM138,80" ¡PRINTttl, " ! " 

DRAW"BM138,88" ¡PRINTttl , " ¡ " 

DRAU)"BM138.96" ¡PRINTttl , " i " 

DRAUJ"BM138, 104" ¡PRINTttl, " ¡ " 

DRAU"BM138, 112" ¡PRINTttl , " ¡ " 

DRAüJ"BM138, 120" ¡PRINTttl , " ! " 

DRAW"BM138, 128" ¡PRINTttl, " i " 

DRAW"BM138, 132" ¡PRINTttl , " ! " 

DRAU"BM138,70" ¡PRINTttl , "A" 

DRAúJ " BM70 , 138" ¡PRINTttl , "B" 

DRALü"BM105, 100" ¡PRINTttl , "c" 

DRAUTBM170, 100" ¡PRINTttl , "b " 

DRAU"BM138, 142" ¡PRINT#1 , "a" 

DRAU)"BM205, 138" ¡PRINTttl , "C" 

DRALü"BM108, 145" ¡PRINTttl , "M" 

DRALü"BM168, 145" ¡PRINTttl , "N" 

DRAU"BM7, 180" ¡PRINT ttl, "Pulsa una tecla Para continuar' 
IF INKEY$=" "THEND=RNDC 1 D ¡GOTO 2450 
GOTO 1990 

CLS¡SCREEN 1 ¡COLOR 15,4,7 

PRINT ¡PRINT"M/H=H/N" ¡PRINT ¡PRINT"H~2=M+N" ¡PRINT 
PRINT¡INPUT"PROYECCION DEL CATETO MENOR " ¡M ¡PRINT 



46 



2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
31 10 
3120 
3130 
3140 
3150 
3160 
3170 



INPUT"PROYECCION DEL CATETO MAYOR ";N:PRINT 
H-fl+N 

PRINT "LA ALTURA ES " ;CSNGCSQRCH3 3 

LOCATE 0,20 ¿PRÍNT "Pulsa una tecla para continuar. 
IF INKEY$=" "THEND-RNDC 1 3 :GOTO 2540 
GOTO 1990 

CLS:SCREEN 0:COLOR 12,1,1 
PRINT" 



PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRI'NT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
K$--INKEY$ 
IF K$--""THEN 
BEEP 

IF K$<"l"ORA$> "6" 
ON UAL CK$D GOTO 
SCREEN 2:C0L0R 



4 
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-1 


RADIO 




-2 


LADO 




-3 


PERIMETRO 




-4 


APOTEMA 




-5 


ANGULO CENTRAL 




-6 


ANGULO INTERIOR 




-7 


POLIGONOS REGULARES 




-8 


RETORNO AL MENU 



2800 



THEN 2800 

2850, 3050, 3230, 3440, 3640, 3850, 4040, 410 

15\4,7:CLS 



CLOSE í OPEN " GRP i " AS# 1 

COLOR 15:DRAU"BM 5, 8" :PRINT#1 , " RADIO.- Es el segmento que va" 
DRA0J"bm5, 18" :PRINTttl , "desde el centro de la c i rcunfe-" 
DRAU"bm5, 28" :PRINT#1, 'Vene ¡a hasta el vértice. 

COLOR 1 :DRAüJ"bml 12, 61" íDRAUl " r30m 1 58, 86m 143, 1111 30m98 , 86mÍ 1 2 , 61 *' 

L I NE f 1 28 , 86 3 - f 1 43, 1 1 1 3 , 1 5 

CIRCLEC128,863, 1 , 15, , , 1.4 

COLOR 15:DRAUI"bml38,90" :PRINT#1, "R" 

COLOR 15 :DRAlü"bml0, 180" :PRINT#1 , "Pu Isa una tecla Para continuar" 

IF INKEY$~" " THEN D--RNDC 1 3 :GOTO 2950 

SCREEN 1 :COLOR 15,4,7 IOJIDTH30 ¡KEYOFF 

PRINT :PRINT "R A 2^Ap A 2+^ lado /v 2" :PRINT 

INPUT "APOTEMA ":AP:PRINT 

INPUT "MITAD DEL. LADO ":L:PRINT 

R = AP' N 2+L^2 

PRINT "RADIO-- "CSNGCSQRCR3 3 

LOCATE 0,20:PRINT "Pulsa una tecla Para continuar" 
IF INKEY$---"" THEN D-RND C 1 3 :GOTO 3030 
GOTO 2560 

SCREEN 2:COLOR 15,4,7:CLS 
CLOSE : OPEN "GRP '■ ' AS#1 

COLOR 15:DRAUJ"BM 5, 8" :PRINT#1 , " LADO. - Es la linea comprendida" 
DRAUi"bm5, 18" :PRINT#1 , "ent re dos vértices de un Poli-" 
DRAW"bm5,28" :PRINT#1, "gono. 

COLOR 1 :DRALü"brr»l 12,61" :DRALü" ' % 30m 1 58 , 86m 143,1 111 30m98, 86c 1 5m 1 1 2, 6 1 

COLOR 15:DRALü"bm97,67" :PRINT#1 , "L" 

COLOR 1 5 : DRAüJ" b nv 1 , 1 80 " :PR INT# 1 , "Pu 1 s a una tecla Para continuar" 
IF I NKEY$- " " THEN D=RND C 1 3 i GOTO 3130 
SCREEN l:COLOR 15, 4, 7 ¡UIIDTH30 :KEYOFF 



PRINT :PRINT "L^2=CR~2-A P ' 
INPUT "RADIO " ".R:PRINT 
INPUT "APOTEMA " :AP:PRINT 



•23*2" :PRINT 




Programa 



3180 L=R"2-AP~2 

3190 PRINT "LADO-" :CSNGCSQRCL3 3*2 

3200 LOCATE 0> 20 SPRINT "Pulsa una tecla para, continuar" 
3210 IF INKEY$-" " THEN D-RNDC 1 3 :GOTO 3210 
3220 GOTO 2560 

3230 SCREEN2:C0L0R 15,4,7:CL.S 
3240 CLOSE:OPEN "GRP:"AS#1 

3250 COLOR 15:DRAU)"BM 5, 8" :PRINT#1 , " PERIMETRO. - Es la suma de todos " 
3260 DRAW"bm5, 18" :PRINT#1 , " los segmentos de un polígono." 

3270 COLOR 1 :DRAU"bml 12,61" :DRAU" r30m!58, 86m.l43, 1 1 1 130m98, 86ml 12,61 " 
3280 COLOR15:DRAU"bml27,50" :PRINT#1 , "L" 

3290 COLOR 15 :DRAW"bml0, 180" :PRINT#1 , "Pu Isa una tecla para continuar" 
3300 COLOR 1 :DRAUi"bmll2,61" :DRAW" r30ml 58, 86m 1 43 , 1 1 1 1 30m98, 86ml 1 2, 61" 
3310 COLOR 15 :DRAU"bml27,50" :PRINT#1 , "L" 

3320 COLOR 15:DRAUJ"bml0, 180" :PRINT#1, "Pulsa una tecla para continuar" 
3330 IF INKEY$-" " THEN D-RNDC 1 3 :GOTO 3330 
3340 SCREEN 1 :COLOR 15,4,7 :U)IDTH30 ¡KEYOFF 
3350 PRINT:PRINT"P=L*n" :PRINT 

3360 PRINT"n-Num.de lados del p o l ¡ gono . " :PR I NT 

3370 INPUT"LADO ":L.:PRINT 

3380 INPUT"NUM. DE LADOS '^NSPPTNT 

3390 P=L*N 

3400 PRINT "PERIMETRO- " :P 

3410 LOCATE 0,20:PRINT "Pulsa una téil* Para r.ntinuar" 
3420 IF I NKEY$- " " THEN D-RNDC 13 :GOTO 3420 
3430 GOTO 2560 

3440 SCREEN2 ¡COLOR 15,4,7:CLS 
3450 CL0SE:0PEN"GRP:"AS#1 

3460 COLOR 15:DRAU"BM 5, 8" :PRINT#1 , " APOTEMA. -Es el segmento que ^a" 

3470 DRAUl"bm5, 18" :PRINTttl , "desde el centro del polígono " 

3480 DRALü"bm5, 28" :PRINT#1 , "hasta el centro de un lado." 

3490 COLOR 1 :DRAUI"bml 12,61 " :DRAlü'V30ml58,86ml43, 1 1 1 130m98, 86ml 12, 61 " 

3500 CIRCLEC128,863, 1, 15, , , 1 .4 

3510 LINEC128,863~C128, 111.1, 15 

3520 COLOR 15 :DRAW"BM130, 96" :PRINT#1 , "Ap " 

3530 COLOR 15:DRAU"bml0, 180" :PRINT#1, "Pulsa una tecla para continuar" 

3540 IF INKEY$-" " THEN D-RNDC 1 3 :GOTO 3540 

3550 SCREEN 1 :COLOR 15, 4, 7 :UIIDTH30 rKEYOFF 

3560 PRINT :PRINT"Ap~2=R-"2-.t¿ LADO" :. PRINT 

3570 INPUT"RADIO ":R:PRINT 

3580 INPUT"LA MITAD DEL. LADO ";L:PRINT 

3590 AP=R~2-L.~2 

3600 PRINT" APOTEMA- " ;CSNGCSQRCAP3 3 

3610 LOCATE 0,20:PRINT "Pulsa una tecla para continuar" 
3620 IF INKEY$=" " THEN D-RNDC ID :GOTO 3620 
3630 GOTO 2560 

3640 SCREEN2:C0L0R 15,4,7:CL.S 
3650 CLOSE:OPEN"GRP:"AS#l 

3660 COLOR 15:DRAU"BM 5, 8" :PRINT#1 , " ANGULO CENTRAL.-Es el ángulo " 
3670 DRALü"bm5, 18" r .PRINT#l , "f o rmado Por dos radios consecu-" 

3680 DRAU"bm5,28" :PRINT#1, "t iuos. " 

3690 COLOR 1 :DRAU)"bmll2,61" :DRAUJ" r30ml 58, 86ml 43, 1111 30m98, 86ml 12,61" 

3700 CIRCLEC128.863, 1, 15, , , 1.4 

3710 LINEC128,863-C143, 1113, 15 

3720 LINEC128,863-C112, 1113, 15 

3730 COLOR 15 :DRAW"BM122, 101 " :PRINT#1 , "Ac " 

3740 COLOR 15:DRAW"bml0, 180" :PRINT#1, "Pulsa una tecla para continuar" 

3750 IF INKEY$=" " THEN D-RNDC 1 3 :GOTO 3750 

3760 SCRFfNl :COLOR 15,4,7:WIDTH 30 

3770 PRINT:PRINT"Ac=360o/n" :PRINT 

3780 PRINT"n=Num. de lados del po 1 i gono " :PRINT 

3790 INPUT"Nq DE LADOS ";N:PRINT 

3800 AC-360/N 

3810 PRINT" ANGULO CENTRAL- "; CSNGCAC3 

3820 LOCATE0,20:PRINT"Pulsa una tecla para continuar" 



3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 



el ang 
consec 



ulo " 
u-" 
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IF INKEY$-" " THEN D-RNDC 1 D :GOTO 3830 
GOTO 2560 

SCREEN2:C0L0R 15,4,7:CLS 
CLOSE:OPEN"GRP:"AS#l 

COLOR 15:DRAU)"BN 5, 8 M :PRINT#1 , " ANGULO INTERIOR. -Es 
DRAlú"bm5, 18" :PRINT#1, "formado por dos lados 
DRAUJ"bm5.28" :PRINTttl , : 't i vos. " 

COLOR 1 :DRAüJ"bml 12,61" iDRAlü" r30ml58, 86ml43, 1 1 1 1 30m98, 86ml 1 2, 61 " 

LINEC118.61.-) -U 15,66], 15 ¡LINEC 1 15, 6'6>-f. 109, 66D , 15 

COLOR 15 :DRAUJ"BM1 15,69" :PRINT#1, "Ai " 

CIRCLEC128,86D, 1, 15, , , 1.4 

COLOR 15:DRAUJ"bml0, 180" :PRINT#1, "Pulsa una tecla Para continuar" 

IF INKEY$=" " THEN D=RND CID :GOTO 3950 

SCREEN1 :COLOR 15,4,7 :U I DTH30 

PRINT :PRINT"A¡ ---Cn-2D*180Q/n " :PRINT 

IÑPUT"ÑUn. DE LADOS ";N:PRINT 

AI=CN-2D*180/N 

PRINT" ANGULO INTERIOR " :CSNGCAID 

LOCATE 0, 20 :PRINT"Pu Isa una tecla Pa-^a continuar" 

IF INKEY$ = ""THEND---RNDf n -GOTO 4020 
GOTO 2560 

CLS:SCREEN0:COLOR 12,1,1 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" " 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
K$=INKEY$ 
IF K$=-""'THEN 
BEEP 

IF K$<"l"ORA$> 
ON UAL CK$) GOTO 
SCREEN 2:C0L0R 
CLOSE:OPEN"GRP 
COLOR 12 :DRAUJ : 'BM85, 10" 
COLOR 12 :DRAUi"Bn84, 15" 
LINEC 128. 40D--T 184, 120D 
LINEC 184, 120} -f. 72, 120D 
LINEC72, 120) - f 128,40 3, 13 
PAINTC128.80). 13. 13 
COLOR 5:DRALü"Bn85, 124" :PRINT#1 
COLOR 8 iDRALü"Bri84, 129" ^PRINTttl 
COLOR 8:DRAüJ"Bf110, 180" ^RINTttl 
IF INKEY$--""T H END--RND' 1 1 '-GOTO 
GOTO 4040 

SCREEN2 : COLORI 2, 1 , 1 :CL.S 
CLOSE:OPEN"GRP:"AS#l 
COLOR 12:DRAUJ"BM85, 10" :PRINT#1 
COLOR 12:DRAW"BM84,«15" :PRINT#1 
COLOR 9 :DRALü"Bf192,50" :ÚRAÜJ"R70D70L70U 
PAINTC128,90D,9,9 

COLOR 5:DRAUi"Bri85, 146" :PRINT#1. " CUADRADO " 
COLOR 8 :DRAU"BN84, 150" :PRINT#1 , " mm ^^^ m " 

COLOR 8 :DRAW"BM10, 180" :PRINT#1 , "Pu Isa una tecla para continuar 



■1 TRIANGULO 
•2 CUADRADO 
•3 PENTAGONO 
•4 HEXAGONO 
•5 HEPTAGONO 
-6 OCTOGONO 



4250 



7" THEN 4250 

4300, 4430, 4540, 4690, 4850, 5020 

12, 1, 1 :CLS 

"AS#1 

iPRINTttl 
i PR I NTtt 1 
, 13 
, 13 



POLIGONOS" 



ANGULO" 



Pulsa 

4410 



una tecla para continuar' 



POLIGONOS" 
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4520 IF INKEY$=""THEND=RNDCn :GOTO 4520 
4530 GOTO 4040 

4540 SCREEN2:C0L0R 12,l,l:CLS 
4550 CLOSE :OPEN"GRP: " AS#1 

4560 COLOR 12:DRAUJ"BM85, 10" :PRINT#1, " POLIGONOS 
4570 COLOR 12 :DRAUJ"Br184, 15" :PRINT#1 , 
4580 LINEC 128, 36 3 -C 176,723,8 
4590 LINEC176,723~C160, 1283,8 
4600 LINEC160, 1283-C96, 1283,8 
4610 LINEC96, 1283 -C80,723 ,8 
4620 LINEC80,723-C128, 363,8 
4630 PAINTC128.963,8 

4640 COLOR 5 :DRAW"BM85, 146" :PRINT#1 , " PENTAGONO" 
4650 COLOR 8 :DRAW"BN84, 150" :PRINT#1 , " mm^m^mm 

4660 COLOR 8 :DRAW"Bf110, 180" PRINTftl , "Pulsa una tecla para continuar' 
4670 IF INKEY$=""THEND=RNDC 1 3 ¡GOTO 4670 
4680 GOTO 4040 

4690 SCREEN2:C0L0R 12,1,1:CLS 
4700 CLOSE :0PEN"GRP:"AS#1 

4710 COLOR 12 :DRAU"BM85, 10" :PRINT#1 , " POLIGONOS" 
4720 COLOR 12 : DRAtú " BÍ184 , 15":PRINT#1, 
4730 LINEC128.523-C164,763, 11 
4740 LINEC164,763-C164,1123,11 
4750 L I NE C 1 64 , 1 1 2 3 - f. 1 28 , 1 36 3 , 1 1 
4760 L I NE C 1 28 , 1 36 3 - C 90 , 1 12 3, 1 1 
4770 LINEC90, 1 123 -f 90, 763 , 1 1 
4780 LINEC90,763-C128,523, 1 1 
4790 PAINTC 128,963 , 1 1 

4800 COLOR 5:DRAUJ"BM85, 146" :PRINT$1, " HEXAGONO " 
4810 COLOR 8:DRAüJ"Bri84, 150" :PRINTttl, " wmm^m 

4820 COLOR 8:DRAUI"BM10, 180" :PRINT#1. "Pulsa una tecla Para continuar' 
4830 IF INKEY$ = " "THEND--RNDC 1 3 "-GOTO 4830 
4840 GOTO 4040 

4850 SCREEN2:C0L0R 12,l,l:CLS 
4860 CL0SE:0PEN"GRP:"AS#1 

4870 COLOR 12 :DRAüJ"Bf185, 10" :PRINT#1 , " POLIGONOS" 
4880 COLOR 12 :DRAU)"Bf184, 15" :PRINT#1 
4890 LINEC 108,563 -C 148.563,2 
4900 LINEC 148, 563 -C 172,883, 2 
4910 LINEC 172, 883-C 164, 1283,2 
4920 LINEC164, 1283-C128, 1443,2 
4930 LINEC128. 1443-C92, 1283,2 
4940 L I NE C 92 , 1 28 3 - C 84 , 88 3 , 2 
4950 LINEC84,883-C108.563,2 
4960 PAINTC128,963,2 

4970 COLOR 5:DRAU"BM85, 146" :PRINT#1 
4980 COLOR 8 :DRAW"BM84, 155" :PRINT#1 
4990 COLOR 8:DRAU"BM10, 180" :PRINTttl 
5000 IF INKEY$--""THEND---RNDC1 3 :GOTO 
5010 GOTO 4040 

5020 SCREEN2:C0L0R 12,l,l:CL.S 
5030 CLOSE :OPEN"GRP : " ASttl 

5040 COLOR 12:DRAU"BM85, 10" :PRINT#1," POLIGONOS" 
5050 COLOR 12-.DRAU", ¿, 1 5" :pr INT#1 , " ^^^^ mm ' 
5060 LINEC128,543~C_ .1.683,5 
5070 LINEC 156, 683-C 165,963,5 
5080 LINEC165.963-C156, 1283,5 
5090 LINEC156, 1283 -C128, 1413,5 
5100 LINEC128. 141 3-C100, 1283,5 
5110 LINEC100, 1283-C91,963,5 
5120 LINEC91,963-C100,683,5 
5130 LINEC100,683-C128,543,5 
5140 PAINTC128,963,5 

5150 COLOR 5:DRAU"Br185, 146" :PRINT#1, " OCTOGONO" 
5160 COLOR 8:DRAtU"BM84, 155" :PRINT#1, " 



, " HEPTAGONO 
____________ 

IBHHHBP 

, "Pu Isa una 
5000 



tecla para cont i nuar 1 



50 



5170 COLOR 8:DRAW"BM10, 180" :PRINT#1, "Pulsa una tecla para continuar" 

5180 IF INKEY$=" "THEND--RNDC 1 !) :GOTO 5180 

5190 REM PANTALLA DE DATOS Y FINAL DEL PROGRAMA 

5200 SCREEN2 

5210 CL0SE:0PEN"GRP:"AS#1 
5220 LINEC255, 10D-C0, 0D , 12, BF 
5230 LINEC255,20!)-C0, 10], 15,BF 
5240 LINEC255,30]-C0,20], 12, BF 
5250 LINEC 10, 191D-C0, 303 ,8,BF 
5260 LINEC 20, 191]-C10,30], 11, BF 
5270 LINEC 30, 1 9 1 ] - C 20, 30 ] , 8, BF 
5280 LINEC 255, 191 D-f. 30, 30!) , 4, BF 

5290 COLOR 15 :DRAU"BM32. 40" :PRINT#1 , "-Este programa ha sido rea-" 

5300 COLOR 15:DRAUJ"bm32,50" :PRINT#1 , " 1 izado conjuntamente por:" 

5310 COLOR 1 :DRAU"bm32, 60" :PRINT#1, " -Diego Castaño Rodríguez " 

5320 COLOR 15 :DRAUJ"bm32, 70" :PRINT#1 , "BASIC Y GRAFICOS. 

5330 COLOR 1 :DRAU)"bm32,80" :PRINT#1 , "-Feo. Javier florón Matas " 

5340 COLOR 15:DRAU"bm32, 90" :PRINT#1 , "BASIC Y MATEMATICAS. 

5350 COLOR 15 :DRAU"bm32, 105" :PRINT#1 , "-Este programa está escri-" 

5360 COLOR 15 :DRAld"bm32, 1 15" :PRINT#1 , "to en BASIC MSX STANDARD " 

5370 COLOR 15:DRAU"bm32, 125" :PRINT#1 , "de Microsoft Corp. 

5380 COLOR 15:DRAUI"bm32, 135" :PRINT#1, "-Ocupa una memoria total " 

5390 COLOR 15:DRAUI"bm32, 145" iPRINTttl, "de 17 Kbytes aproximadamente" 

5400 F0RI=1T015 

5410 COLOR I :DRAU"bm32, 160" :PRINT#1, " CCD KIÜJI SOFT. 1985 

5420 COLOR 15 :DRAld"bm32, 180" :PRINTttl , "Pu lsar -M- para ir al menú " 

5438 A$=INKEY$:IF A$-"M" OR A$="m" THEN RUN2560 EL SE IF A$<> " "THEN 5450 ELSE NEX 

T 

5440 GOTO 5400 

5450 SCREEN 1 :UJIDTH30 :COLOR 15, 4, 7 '.LOCATE 9,12: PRINT" GOOD BYE" "-LOCATE 9,13:P 
RINT" 

5460 UJ " 



Test de Listados HnHHHHHHii^HMatemáticas ■ 



• 


-135 


190 


-168 


380 


-108 


570 


-131 


760 


-131 


950 


-240 


1140 


-234 


10 


- 58 


200 


- 63 


390 


-159 


580 


-134 


770 


-188 


960 


- 29 


1150 


- 55 


20 


- 58 


210 


-206 


400 


-178 


590 


-178 


780 


-131 


970 


-229 


1160 


- 74 


30 


- 58 


220 


-100 


410 


- 61 


600 


-148 


790 


-183 


980 


-239 


1170 


- 80 


40 


- 58 


230 


- 79 


420 


-144 


610 


- 85 


800 


-131 


990 


-223 


1180 


- 23 


50 


- 58 


240 


- 75 


430 


-131 


620 


- 64 


810 


-125 


1000 


- 39 


1190 


- 88 


60 


- 58 


250 


-246 


440 


-218 


630 


-121 


820 


-131 


1010 


-121 


1200 


-188 


70 


- 36 


260 


- 55 


450 


-131 


640 


-192 


830 


-208 


1020 


-167 


1210 


-150 


80 


-206 


270 


- 20 


460 


-124 


650 


-109 


840 


-131 


1030 


-175 


1220 


- 5 


90 


- 87' 


280 


-254 


470 


-198 


660 


-169 ■ 


850 


- 28 


1040 


- 5 


1230 


- 74 




- 76 


290 


-151 


480 


-122 


670 


-109 


860 


- 64 


1050 


-144 


1240 


- 78 




-176 


300 


-176 


490 


-131 


680 


- 19 


870 


-106 


1060 


- 55 


1250 


- 88 




- 10 


310 


-116 


500 


- 33 


690 


- 75 


880 


-192 


1070 


- 74 


1260 


- 82 




- 26 


320 


-176 


510 


-131 


700 


-138 


890 


- 95 


1080 


- 80 


1270 


-187 


140 


-121 


330 


-180 


520 


t.132 


710 


- 8 


900 


- 25 


1090 


- 23 


1280 


- 91 


150 


-196 


340 


-219 


530 


-131 


720 


- 76 


910 


- 36 


1 100 


- 82 


1290 


- 5 


160 


-225 


350 


- 20 


540 


-207 


730 


- 14 


920 


-206 


1 1 10 


-188 


1300 


- 93 


170 


-108 


360 


-195 


550 


-131 


740 


-131 


930 


- 77 


1120 


-156 


1310 


- 35 


180 


-159 


370 


- 16 


560 


- 75 


750 


- 64 


940 


-239 


1130 


- 16 


1320 


-174 
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Programa 




1680 
1690 
1700 
1710 
1720 
1730 
1740 
'50 
J 60 
1770 
1780 
1790 

100 

1810 
ÉS20 
1830 
1840 
1850 
1860 
1870 
1880 
LB9S0 
500 
1910 



1930 
19^0 

1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 



-209 
-192 
-115 

- 16 

- 43 
-176 
-108 

- 35 
-249 
-138 

- 24 

- 76 

- 30 
-131 
-154 
-131 

- 78 
-131 
-206 
-131 

- 44 

- 64 
-111 
-192 

- 98 
-201 

- 75 
-206 

- 72 

- 62 

- 78 

- 16 
-195 

- 62 

- 75 
-173 
-181 
-180 
-218 
-217 
-216 
-224 
-219 
-113 
-114 
-183 
-184 
-193 
-163 
-173 
-180 
-198 

- 13 
-100 

- 74 
-230 
-248 

- 53 
-195 





2530 - 
2540 ■ 
2550 - 
2560 - 
2570 - 
2580 - 
2590 - 
2600 - 
2610 - 
2620 - 
2630 - 
2640 - 
2650 - 
2660 - 
2670 - 
2630 - 
2690 - 
2700 - 
2710 - 
2720 - 
2730 - 
2740 - 
2750 - 
2760 - 
2770 - 
2780 - 
2790 - 
2800 - 
2810 - 
2820 • 
2830 - 
2840 ■ 
2850 • 
2860 - 
2870 - 
2880 - 
2890 - 
2900 - 
2910 - 
2920 - 
2930 - 
2940 - 
2950 - 
2960 - 
2970 - 
2980 - 
2990 - 
3000 - 
3010 - 
3020 - 
3030 - 
3040 - 
3050 - 
3060 - 
3070 - 
3080 - 
3090 - 
3100 - 
3110 - 



■ 62 
103 

•100 

■ 61 
■195 
■200 

■ 58 
■184 

■ 76 
190 

•131 

• 80 
■131 

• 2 
•131 

154 
131 
235 
131 
180 
131 

24 
131 

75 
131 
211 
204 

74 

• 15 
■192 

• 5 

■ 47 

• 75 
•206 
■134 

126 
■157 

■ 86 
73 

171 
•217 

■ 69 

• 3 
•105 
•209 

103 
127 

31 
153 

16 

83 
151 

75 
206 

62 
153 
237 

31 
171 



3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 



-184 
-105 
-129 
-144 
-103 

- 32 
-133 

- 16 

- ^8 
-151 

- 75 
-206 
-238 
-111 

- 86 
-205 

- 69 

- 86 
-205 

- 69 
-129 
-105 
-220 

- 79 

- 59 

- 55 
-204 

- 84 

- 16 
-219 
-151 

- 75 
-206 

- 30 

- 8 

- 21 

- 86 
-171 
-230 
-246 

- 69 

- 83 
-105 
-195 
-144 

- 12 

- 32 
-171 

- 16 
-164 
-151 

- 75 
-206 
-232 

- 41 
-111 

- 86 
-171 

- 73 



3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 



- 13 

• 69 

- 38 
•120 

■ 41 

• 33 

■ 14 

• 58 
■143 

• 16 
•118 
■151 

• 75 
-206 

• 75 

;186 

■11 1 

■ 86 

• 72 
■242 
•171 

• 69 
■239 
-120 
■119 

■ 55 

■ 21 
■187 

■ 16 

• 53 
■151 

• 61 
195 

■115 
•138 
•184 

■ 76 
•190 
■131 

150 
131 

• 37 
■131 
•142 
■131 

■ 61 
■131 

138 
■131 

■ 78 
•131 
-204 

■ 74 
■191 
•192 
•182 
■192 

• 63 
■206 



4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 



-205 
-247 

- 15 
-135 
-186 
-243 

- 1 

- 
-189 
-110 

- 63 
-206 
-199 
-205 
-173 
-192 
-133 

• 31 

- 

• 43 
■110 

- 63 
-206 
■199 
■205 
■184 

- 52 

■ 28 
■148 

■ 88 
127 

■237 
■251 

- 
-194 
-110 

■ 63 
-206 
■199 
■205 
-193 

- 33 

■ 57 
■239 
■141 
-119 
-128 
-155 

- 31 

- 

- 98 
-110 

- 63 
-206 
-199 
•205 
•134 
•230 

• 62 



4930 


- 2 


4940 


-158 


4950 


-102 


4960 


-121 


4970 


-231 


4980 


- 


4990 


- 


5000 


- 13 


5010 


-110 


5020 


- 63 


5030 


-206 


5040 


-199 


5050 


-205 


5060 


-175 


5070 


-254 


5080 


- 58 


5090 


- 66 


5100 


- 10 


5110 


-184 


5120 


-124 


5130 


-119 


5140 


-124 


5150 


-170 


5160 


- 36 


5170 


- 


5180 


-194 


5190 


- 


5200 


-216 


5210 


-206 


5220 


-223 


5230 


-244 


5240 


- 5 


5250 


-185 


5260 


-204 


5270 


-223 


5280 


-198 


5290 


-255 


5300 


-213 


5310 


- 16 


5320 


-133 


5330 


- 75 


5340 


- 98 


5350 


-195 


5360 


-223 


5370 


-192 


5380 


-247 


5390 


- 99 


5400 


-195 


5410 


- 26 


5420 


-205 


5430 


- 88 


5440 


-196 


5450 


-100 


5460 


- 49 



TOTAL : 



52 



•■■•■>>■•■■■■■ 



Nombre y apellidos 

Calle N.° 

Ciudad Provincia 

D. Postal Teléfono 



Deseo suscribirme por doce números a la revista MSX CLUB DE PROGRAMAS a partir del número 

que pago adjuntando talón a la orden de: MANHATTAN TRANSFER, S.A. - CA Roca i Batlle, 10-12 - 08023 Barcelona 
o mediante transferencia bancaria a favor de MANHATTAN TRANSFER, S.A. 
Banco Central - Agencia 36 - Balmes, 386 - 08022 Barcelona - CTA. CTE. 2 í 76.80. 

Tarifas: España por correo normal Ptas. 1 .500,- 

Europa por correo normal Ptas. 1.700,- 

Europa por correo aéreo Ptas. 1 .900,- 

América por correo aéreo Ptas. 3.700,- 

Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB 



Programa 



POKER 



10 REM *********************** 
20 REM ** EL POKER MSX-CLUB ** 
30 REM ** RAFA E IÑAKI ** 
40 REM ** REQUENA ** 

so rem M*mxw*****mm#**mxx 

60 CLS : KEY OFF i COLOR 10,1: CLS 

70 PRINT" ¿NECESITAS INSTRUCCIONES? (S/N 



8U 
90 
O 

100 

no 

120 
130 
140 
150 
T #1 



R*= 
IF 



= INKEY* 
R$="N" 



IF 
IF 



R*="S' 
R*=" " 



OR R*="n" THEN CLS ¡ GOTO 31 



THEN 120 



OR R*=" 
THEN 30 
SCREEN 3 : COLOR 2 , 1 , 1 ¡ CLS 
OPEN"GRP:" AS #1 
PSETCO , O ) ¡PRINT #1 , "EL POKER" 
FOR R=2 TO 8¡PSET( < R-2 )*36 , 75 ) 
,CHR*C1 );CHR*C 67) ¡COLOR R ¡ NEXT 



PRIN 
R 



160 COLOR 4 ¡PSETCO, 120) ¡PRINT #1 , "MSX-C 
LUB" 

170 REM ^PROGRAMA MUSICAL* F . J . JAUSET 
180 REM 'EL GOLPE' 
1 90 CLEAR ¡ PLAY" V 1 2" , " v 1 2" , " v 1 2" ¡ PLAY" " , 
"slm4000" , " " 

200 P*="T1 5006L8DEC05AABGGDEC04AABGGDEC 
03AABAA-GGR405GR8" 

210 Q*= " T 1 5005L3DEC04 AABGGDEC03 A ABGGDEC 
02AABAA-GG03GR8" 

220 A*="T1 S004L8DD#E05CC04E05CC04E05CCC 
04AAR805CDD#ECDEE04B05DDC2R404dD#E0SCC0 
4E05CC04E05CC2R404AGF#A0SCEEDC04A05D2DR 
804DD#E05CC04E05C404E05CC2R8CDD#ECDE404 
B05D4C2R4CDECDE4CDCECDE4CDCECDE404B05D4 
CC4" 

230 B$="T1 5003L4RGR02GRFRERGRGR03CRC02G 

□3CR02GRFRERDRARGGAB03CR02GRFRERGRGR03C 

02GCR03C202B-2A2A--2GRGR03C02GC" 

240 C*="T1 5003L4RR1 RFR8L8EFFKGEFG4R8F4R 

4E4L4R2R1 RFRERR805CR804F8R8F2F8R8RR 1 RFR 

8L8EFF#GEFG4R8F4E2R2GR4G4R4R8FR4F4R4R8G 

R4F4R8F4E4ER" 

250 PLAY P*,Q* 

260 FOR 1=0 TO 1 

270 PLAY A$,B*,C* 

280 PLAY" S 1 M5000" , " s3m5000" , " s 1 mSOOO" 
290 NEXT I 
300 GOTO 1830 

310 DIM T< 13),C9C4),SC4, 13),MC5),M1 <5), 
CC5),C1<5) . . 

320 COLOR 10,1 ¡ CLS ¡^PR I NT "************ 
POKER GAME ************ M ¡ P9=l 00 ! PRINT 
330 PRINT" APOSTANDO O SE ENSEÑAN LAS CA 
RTAS" 

340 PRINT "Y NO PONGAS NUMEROS NEGATIVO 

S" 

350 FOR X=l TO 4 ¡ FOR 1=1 TO 13¡S(X,I)=0 



Por Rafael e Iñaki Requena 



Con este programa puedes 
tener una magnífica partida 
de poker contra el ordena- 
dor. El programa responde a 
las diferentes posibilidades de 
juego. Tal vez algunos lecto- 
res prefieran agregarle los 
gráficos de las cartas. 



¡NEXT I ¡NEXT X 

360 PRINT ¡PRINT "SE ESTAN BARAJEANDO LA 
S CARTAS" ¡PRINT 

370 A9=5¡ PRINT "NO APOSTAR MAS DE * 50. 
O" : PRINT "TU TIENES $";P9¡F0R R=l TO 15 
00 ¡NEXT R 

380 FOR X=l TO 5 ¡ GOSUB 1 550 ¡ MC X )=C ! MI < X 
)=S¡NEXT X¡ CLS ¡GOSUB 1760 

330 PRINT: PRINT "COGERE MIS CARTAS" ¡PRI 
NT 

400 FOR X=l TO 5 ¡GOSUB 1 550 ¡ CC X )=C ¡ C1 ( X 
)=S¡NEXT X 

410 GOSUB 1800¡Cl=T¡C2=H9¡Pl=-5 

420 PRINT "ABRE CON UNA APUESTA" ¡ ! INPUT 

B ¡ IF B<0 THEN 420 
430 IF RND ( O )< . 2 THEN 450 
440 IF. INT< < CT*RNDCO) )+l )+( CH9*RND(0) )+ 
1 )+<T*10) XB-CB/10) THEN 740 
450 A9=A9+B¡ PRINT "ACEPTO" 
460 PRINT ¡PRINT "CUANTAS CARTAS A REPON 
ER";¡ INPUT K9¡IF K9=0 THEN 520 
470 FOR X=l TO K9 

480 PRINT "CARTA NUMERO" J : INPUT T9 ¡ GOSU 
B 1550 

490 IF T9<6 THEN 510 

500 PRINT "METE NUMERO DE CARTA (1A5)." 
¡GOTO 480 

510 M(T9)=C:M1 CT9)=S¡NEXT X ! FOR R==l TO 
500 ¡NEXT R! CLS ¡GOSUB 1760 

520 GOSUB 1 730 ! FOR X=1 TO 5 ! T ( MC X ) )=TC M 

CX) )+l ¡C9CM1 CX) )=C9CM1 CX) )+l 

530 NEXT X ¡ GOSUB 990 ¡ Pl =T ¡ GOSUB 1 330 ¡ P2 

=H9 

540 GOSUB 1800¡H9=0¡IF T>3 THEN 600 
550 FOR Z=l TO 5 ¡IT H9=3 THEN 590 

560 if t<:ccz):k>i then 590 

570 H9-H3+1 

580 GOSUB 1550¡CCZ)=C:C1(Z)=S 
590 NEXT Z 

600 PRINT¡PRINT"YO LLEVARE" ; H9 J "CARTAS. 
" ¡ H8=H9 

610 GOSUB 1 800 ¡C1=T¡ GOSUB 1 330 ¡ C2=H9 

620 B9= I NT ( C C 1 *RND C O ) )+< C2*RND C O > ) + í C 1 * 

10) )-+-INT(A9/3) + C CK9~H8)*2)+7 

630 B 1 =0 ¡ I F RND C O ) <C 1 i* . 5 THEN 650 

640 B9=93 . 99 

650 PRINT ¡ PRI NT "CUANTO APUESTAS" j ¡ INPUT 
B 

660 IF B<0 THEN 910 

670 A9=A9+B1 

680 IF BOO THEN 710 

690 GOSUB 780 

700 GOTO 840 

710 IF A9+B<B9 THEN 760 

720 IF A9+B<B9+CB9/2) THEN 750 

730 IF B9=99.99 THEN 750 
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740 PRINT"N0 ACEPTO !!": GOSUB 780 ! SOTO 9 
20 

750 PRINT "LLEVO! !!" ¡A3=A9+B¡ GOSUB 780: 
GOTG 840 

760 Bl mí NT C C C B9-- A9 > / 3 5 *RND C O ) ) +2 ! A9= A9+ 
B 

770 PRINT "SUBO $";B1¡G0T0 650 

780 PR I NT : PR I NT " TENGO " j : T=C 1 ¡ GOSUB 1 36 

O 

790 PRINT "CON UNA CARTA GRANDE DE " J : C 
=C2 ¡ GOSUB 1 530 ! PR I NT " . " 
800 IF Pl=-S TH'EN 830 

8 10 PR I NT ¡ PR I NT " TU T I ENES " j j T=P 1 ! GOSl ) 

B 1360 

820 PRINT "CON UNA CARTA GRANDE DE ";:C 
=F2 : GOSUB 1 580 ! PR I NT " . " 
330 RETURN 

340 IF C1=P1 THEN 870 

850 IF CKP1 THEN 920 ELSE 910 

860 GOTO 910 

870 IF C2=P2 THEN 900 

880 IF C2<P2 THEN 920 ELSE 910 

890 GOTO 910 

900 PRINT" ES UN EMPATE !!": GOTO 930 

910 PRINT "GANO $" ; A9 : P9=P9-A9 ! GOTO 930 

920 PRINT "TU GANAS *" ; A9 ¡ P9=P9+A9 

930 PRINT "OTRA VEZ? C 1 «SI ) " j ! INPUT B:I 

F B=l THEN CLSlGOTO 350 

940 IF P9<0 THEN 980 

950 IF P9>=100 THEN 970 

960 PRINT "LLEVAS PERDIENDO $";100-P9¡E 
NO 

370 PRINT "LLEVAS GANANDO *";P9:END 

980 PRINT "ME DEBES" J ~P9 ! END 

990 T=0:FOR 1=1 TO 4:IF C9(I><>5 THEN 1 

010 

1000 T=5 

1010 NEXT I : I=2:H9=0 

1020 1 = 1-1 : IF IO0 THEN 1040 

1030 1=13 

1 040 I F T < I >< 1 THEN 1 020 
1050 H3=I:IF ÍOl THEN 1070 
1060 1=14 
1070 Z=I-4 

1 080 I = I - 1 : I F T C I :>< > 1 THEN 1 1 30 

1090 IF ZOI THEN 1080 

1 1 00 T=T+4 : IF Z<> 1 O THEN 1 1 30 

1110 IF T=4 THEN 380 

1 120 T=T+1 

1130 IF 1=13 THEN 1020 
1140 IF TOS THEN 1170 
1 150 IF TC1 >01 THEN 1 170 
1 160 H9=l 

11 70 IF T=0 THEN I 190 
1 1 80 RETURN 

1190 FOR 1=1 TO 13: IF T(I)<>4 THEN 1210 
1200 T=7 

1210 IF ttl><>3 THEN 1230 
1220 T=T+5:H9=I 
1230 IF T(i:><>2 THEN 1310 
1240 IF T=5 THEN 1300 
1250 IF TOO THEN 1270 
1260 H3=0 

1270 IF H3=l THEN 1300 
1280 IF H9>I THEN 1300« 
1230 H9=I 
1300 T=T+1 

1310 NEXT I:IF T<>5 THEN 1350 



1 320 T=3 : RETURN 

1330 IF H901 THEN 1350 

1340 H9=14 

1350 RETURN 

1360 IF TOO THEN 1380 

1370 PRINT "NOTHING" : RETURN 

1380 IF TOl THEN 1400 

1390 PRINT "ONE PAIR": RETURN 

1400 IF T02 THEN 1420 

1410 PRINT "TWO PAIR" ¡RETURN 

1420 IF TO-3 THEN 1440 

1430 PRINT"THREE OF A KIND" '.RETURN 

1440 IF T<>4 THEN 1460 

PRINT "STRAIGTH" : RETURN 
IF T<>5 THEN 1480 
PRINT"FLUSH" ! RETURN 
IF TO-6 THEN 1500 
PRINT"FULL HOUSE" : RETURN 
IF T<>7 THEN 1520 
PRINT "FOUR OF A KIND" ¡RETURN 
IF T09 THEN 1540 
PRINT "STRAIGTH FLUSH" ¡ RETURN 
PRINT "ROY AL FLUSH !!": RETURN 
S= I NT C 4*RND £ X ) > + 1 : C= I NT ( 1 3*RND C X > ) 



1 450 
1 460 
1470 
1 430 
1 490 
1 500 
1510 
1 520 
1 530 
1 540 
1 550 
+ 1 

1 560 
1 570 
1 580 
1590 
1 600 
1 6 1 O 
1620 
1 630 
1 640 
1 650 
1 660 
1 670 
1 680 
1 690 
1 700 
1710 
1 720 
1 730 
1740 
1750 
1760 

X=l 
1770 

UN 
1780 
1790 
1 TO 
1800 



IF 803,0 = 1 THEN 1550 
SCS,C)=1 : RETURN 
IF COI THEN 1600 
PRINT "ACE" J I RETURN 
IF COI 1 THEN 1620 
PRINT "JACK" ; : RETURN 
IF COI 2 THEN 1640 
PRINT "QUEEN" ; ¡RETURN 
IF COI 3 THEN 1-660 
PRINT "KING" ; ¡RETURN 
IF COI 4 THEN 1680 
PRINT "ACE" ; ¡RETURN 
C ; ¡ RET URN 



THEN 1710 

OF HEARTS" ¡ RETURN 

THEN 1730 

OF SPADES" ¡RETURN 

THEN 1750 

OF DIAMONDS" ¡RETURN 
OF CLUBS" : RETURN 

'ESTA ES TU MANO: 



PRINT 
IF SOI 
PRINT " 
IF S<>2 
PRINT " 
IF SOS 
PRINT " 
PRINT " 

PRINT : PRINT "ESTA ES TU MANO !"! FOR 
TO 5 

C=M< X ) : S=M1 C X ) ¡PRINT "CARTA" ; X J "ES 
' ; ¡ GOSUB 1 580 ¡ GOSUB 1 690 
NEXT X: RETURN 

FOR X=l TO 4 :C9(X>=0¡NEXT X ¡ FOR X= 
13:TCX)=0:NEXT X¡ RETURN 
GOSUB 1790 ¡FOR X=l TO 5 ¡ TC CC X ) )=TC 
C(X))+1 

1810 C9ÍC1 CX) )=C9(C1 <X> )+l ¡NEXTX ¡GOSUB 
990 ¡ RETURN 
1820 END 

1 830 CLOSE ¡ SCREEN O ! COLOR 1,12! CLS : PR I N 
T "i****:*:****:*:*:*: POKER GAME *****#****5|t* 
" ¡PRINT : PRINT 

1840 PRINT "EN ESTE JUEGO TU Y EL ORDEN 
ADOR ,TU- GAIS UNA PARTIDA DE POKER. ":P 
RINT 

1850 PRINT "TENEIS * 100.00 PARA COMENZ 
AR LA PAR-T I DA. " ¡PRINT 

1360 PRINT ¡PRINT "EL ORDENADOR ELIGE 5 C 
ARTAC AL AZAR " 

1870 PRINT ¡PRINT "COMIENZAS CON UNA APUE 
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STA PARA CAM- BIAR UNA SOLA VEZ TANTAS 

CARTAS COMO DESEES . POR EJEMPLO , PUEDES 
PULSAR VA- RIAS VECES EL MISMO NUMERO." 
1880 LOCATE 0,20:PRINT "PULSA LA BARRA 
ESP AC I ADORA" 

1890 IF STRIG(0:>=0 THEN 1890 ELSE 1900 

1900 COLOR 1 , 7:CLS:PRINT 

POKER GAME *#**$*#####*" j PRINT ! PRINT 

1910 PRINT "VALORES DE CARTAS Y COMBINA 

C IONES DE MAYOR A MENOR" : PRINT 

1920 PRINT "1--ACE 2-KING 3-QUEEN 

4-JACK" 

1930 PRINT "5-DIEZ S-NUEVE 7- OCHO 
8-SIETE" 

1940 PRINT "9-SEIS 10-CINCO 11 -CUATRO 
1 2-TRES" 

1950 PRINT "13-DOS 1 4-ACE" 

1 960 PR I NT : PR I NT " ACE= AS ; K I N6=RE Y ¡ QUEEN= 

REINA ; JACK=SOTA" ¡ PRINT ¡ PRINT 

1970 PRINT"SPADES HEARTS CLUBS 

DI AMONDS" 

1980 PRINT"PICAS CORAZONES TREBOL 
ROMBOS" 

1990 LOCATE O , 20 : PRINT" PULSA LA BARRA E 
SPACI ADORA" 

2000 IF STRIG<:0>=0 THEN 2000 ELSE 2010 
2010 COLOR r,6:CLS!PRIMT P 
OKER GAME " ¡ PR I NT ! PR I NT 
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2020 PRINT" 1 . ROYAL FLUSH= STRAIGHT FLUS 
H CON UN ACE" 

2030 PRINT" 2. STRAIGHT FLUSH= 5 CARTAS D 
EL MISMO PALO, COLOCADAS CONSECUT I VAME 

NTE" 

2040 PRINT"3.F0UR OF A K I ND- 4 CARTAS D 
EL MISMO VALOR" 

2050 PRINT"4.FULL HOUSE= TRES CARTAS DE 
L MISMO VALOR Y DOS IGUALES DE OTRO 
VALOR" 

2060 PRINT" 5. FLUSH= 5 CARTAS DEL MISMO 
PALO" 

2070 PRINT "6. STRAIGHT» 5 CARTAS EN DOS 
O MAS PA- LOS, COLOCADAS CONSECUT IVAMEN 

TE" 

2030 PRINT" 7. THREE OF A KIND= 3 CARTAS 
DE UN MIS MO VALOR" 

2090 PRINT"8.TU0 PAIRS« 2 PARES DEL MIS 

MO VALOR RESPECTIVAMENTE" 

2100 PRINT" 9. ONE PAIR= 1 PAR DEL MISMO 

VALOR" 

2110 PRINT" 10. NÜTHING= NADA" 

2120 LOCATE O, 22: PRINT "PULSA LA BARRA 

ESPACI ADORA" 

2130 IF STRIGCO)=0 THEN 2130 ELSE CLS ! G 
OTO 310 



Programa 



Por Eduardo Barambio 



DISEÑADOR 
DE SPRITES 



Este corto programa es de 
una gran utilidad para aque- 
llos que quieren programar 
juegos, pues te permiten di- 
señar con gran facilidad 
cualquier tipo de sprite y 
obtener su equivalencia en 
hexadecimales. 




1 3J¡ •■t*» .^í .-|*. .4*- .•!*• !<!■* .4*- ,4% 

20 '* DISEÑADOR DE SPRITES * 
30 '# POR * 

40 '* EDUARDO BARAMBIO * 

50 '* PARA * 

60 '* MSX-CLUB * 

70 ' 
80 KEYOFF 
90 CLS 

100 L0CATE10,4:PRINT"*# SPRITE **" 
110 L0CATE3 , S : PRINT"ESTE PROGRAMA SIRVE 
PARA FACILITAR " 



120 L0CATE2,7:PRINT"LA CREACION DE LOS 
SPRITES. " 

130 L0CATE3, S : PRI NT" DEBES RELLENAR LAS 
DIFERENTES" 

140 L0CATE2,9:PRINT"CASILLAS HASTA COMP 
LETAR EL" 

1 50 L0CATE2 , 1 O ! PR I NT" SPR I TE QUE QU I ERES 

DIBUJAR . " . 
160 L0CATE4, 11 ¡PRINT" APRETANDO LA TECLA 

C OBTIENES" 
170 L0CATE2, 12: PRI NT" LAS VARIABLES EN N 
□TAC ION HEXADE" 
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180 L0CATE2, 1 3 '. PRINT"CIMAL . " 
190 L0CATE5,20¡PRINT"PULSA UNA TECLA" 
200 IFINKEY$=""THEN200 
210 SCREEN2,0 
220 0PEN"GRP; "AS#1 
230 DATA 1 8 , 1S, 1 8 , FF , FF , 18, 18, 18 
240 F0RI = 1 TOS ¡ READB* ! A*=A*+CHR*C VALC "2<H 
"+B*> ) 
250 NEXTI 
260 SPRITE*CO)=A$ 
270 L I NE C O , O ) - C 255 , 1 95 ) 
280 PSET C 200 , 5 ) ¡ PR I NTtt 1 
290 F0RT=45TÜ205STEP10 
300 PSETCT, 15) , 15: 
310 NEXTT 
320 FÜRT= 1 5TÜ 1 75STEP 1 O 
330 PSET C 45, T) :DRAW"R160" 
340 NEXTT 

350 PSET C 125,95) ¡DRAW"U90D1 80U90R90L 180 



1 , BF 

"SPRITE" 



360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 



PSET ( 85, 10) : DRAUI" D I 70" 
DRAW'Dl 70' 



PSET Cl 65, 10) 
Y=95: X=125 
IFX>198THENX=198 
IFX<46THENX=46 
IFY>166THENY=166 
IFY<17THENY=17 
PUTSPRITEO, CX,Y),8,0 
l FSTR I G ( O ) =- 1 THEN530 
I*=INKEY* 

I F I *=" C" ÜR I *=" c " THEN550 
A=STICKC0) 

IFA=1 THENY=Y-1 ! G0T0390 
IFA=3THENX=X+1 ! G0T0390 
I FA=5THENY=Y+ 1 ¡ G0T0390 
IFA=7THENX=X-1 ! G0T0390 
GÜT0390 

PAINTCX+3, Y+3) , 15 
G0T0470 

DATA20 , 30 , 50 , 80 , 20 , 90 , 90 ,120,1 00 , 1 7 
O , 50 , 80 , 1 00% 1 70 , 90 , 1 20 , 20 , 90 , 1 30 ,160, 20 
,90, 170,200, 100, 170, 130, 160, 100, 170, 170 
, 200 

560 D I MC C 63 ) : D I MC$ £ 63 ) 
570 F0RI=1T08 
580 READAA , BB , CC , DD 
590 F0RE=AAT0BBSTEP1 O 



600 F0RU=CCT0DDSTEP10 

610 I FPO I NT C U , E ) = 1 5THENC CQ)=CCQ) +FF 

620 FF=FF/2 

630 NEXTU 

640 FF=8:Q=Q+1 

650 NEXTE 

660 NEXTI 

670 F0RI=0TÜ63 

680 C*C I )=STR*CCC I ) ) 

690 IFCC I )=10THENC*C I )="A" 

700 IFCC I )=1 1THENC*C I )="B" 

710 IFCC I )=12THENC*C I ) = "C" 

720 IFCC I )=1 3THENC$C I )="D" 

730 I FC C I ) = I 4THENC* C I ) =" E" 

740 I FC C I ) = 1 5THENC* C I ) = " F " 

750 NEXTI 

760 SCREENO 

770 LÜCATEO, O : PRINT"OCT . 1 " 

780 FÜR I =0TÜ7 : LÜCATEO , I +2 

790 PRINTC$C I ) : NEXTI 

800 FÜR I =8T0 1 5 ! L0CATE2 , I -6 

810 PRINTC*C I ) ¡NEXTI 

820 L0CATE10,0:PRINT"0CT. 2" 

830 FOR I = 1 6T023 ! LOCATE 10,1-14 

840 PRINTC*C I ): NEXTI 

850 FOR I -24T03 1 ! LOCATE 12,1 -22 

860 PR I NTC* C I ) : NEXT I 

870 L0CATE20 , O ! PRINT"OCT . 3" 

880 FOR I =32T039 ¡ L0CATE20 , I -30 

390 PRINTC$C I ) : NEXTI 

300 FOR I =40T047 ¡ L0CATE22 , I -38 

310 PRINTC*C I ) ¡NEXTI 

920 L0CATE30, O ! PRINT"OCT. 4" 

930 FOR I =48T055 ! L0CATE30 , I -46 

940 PRINTC*C I ) ¡NEXTI 

350 F0RI=56T063 ¡ L0CATE32 , 1-54 

960 PRINTC*C I ) ¡NEXTI 

970 L0CATE5,20¡PRINT"0TR0 SPRITE CS/N)? 
a 

980 CLOSE ! REST0RE230 ! REST0RE550 

990 Y$=INKEY$ 

1 000 I F Y*= " " THEN990 

101 O IFY$="N"ORY$=" n"THENEND 

1020 IFY*="S"0RY*="s"THENRUN21 O 

1030 G0T0990 












est de Listadosi 



Diseñador de Sprites 



1 60 
I 70 
I 80 
190 
200 
210 
220 
230 
240 
250 
260 
270 
2S0 
290 



-114 

.... S7 

-214 

- 30 

- 90 

- 21 
-224 

- 70 
-156 
-204 
-161 
-143 
-115 
-171 



310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 



■215 
■1 1 1 
•244 
•215 
■1 10 
•212 

• 36 
•195 

156 
110 
94 

• 54 
1 03 
126 



460 
470 
480 
490 

500 
510 
520 
530 
540 
550 
560 
570 
580 
590 



- 1 20 

- 51 
- 1 64 
-163 
-167 

- I 68 

- 30 

~ 65 

-1 10 
_ 

- 46 
-190 

- 31 
- 1 38 



6 1 O 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 



-172 

- 14 
-216 

- 98 
--200 

204 

-242 

-176 

-191 

-193 

-195 

-197 

-199 

-201 



760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 



-214 

- 88 
- 1 52 
- 1 09 
-152 
-131 
-135 
-152 
-161 
-152 
-142 
-161 
-152 



91 O 
920 
930 
940 
950 
960 
970 
980 
990 
1 000 
1010 
I 020 
1 02.0 



152 

153 
-251 

152 
-245 

152 
- 1 99 
-1 10 
- 88 
• 4 
-249 
•236 



TOTAL : 
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Programa 



Por Robert Ferrando Bergada 




Si bien ya hemos publicado 
un completo programa para 
dibujar y colorear, editamos 
este por la sencillez y rapidez 
de ejecución con que ha sido 
concebido 



El programa empieza con un punto das por la instrucción "stick". 

blanco en pantalla que se desplaza me- Para cambiar de color puede selec- 

diante las teclas de cursor, dibujando cionarse empleando las teclas de fun- 

una línea. ción de la 3 a la 10. 

El punto puede moverse en cual- Para borrar se emplea Fi. Para vol- 

quiera de las ocho direcciones permiti- ver a trazar líneas hay que pulsar F2. 



El programa ha sido diseñado para 
trabajar dentro de los márgenes de pan- 
talla y para que sea mejorado por otros 
lectores. 
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10 ' 
20 ' 
30 1 
40 1 
50 ' 
60 ' 
70 ' 
80 1 
90 ' 
100 



DIBUJA Y PINTA A GUSTO 
CON TU n.s.x. 

diseñado por: 

ROBERT FERRANDO BERGADA 
Sta. Colonia de Queralt 
PARA M S X - CLUB 



110 COLOR 15. 1. 1 

120 KEYOFF :CLS :PRINT : PRINT : PRINT 

130 PRINT"PARA DIBUJAR UTILIZA LOS MANDO 

S DE" :PRINT 

140 PRINT"POSICIONAMIENTO DEL CURSOR :fr A 
w i" :PRINT 

150 PR INT"LAS TECLAS DE FUNCION SIRUEN P 
ARA LO SIGUIENTE:" :PRINT 
160 PRINT" Fl PARA BORRAR LINEAS" 
170 PRINT" F2 PARA DIBUJAR" 
180 PRINT" 
190 PRINT" 
200 PRINT" 
210 PRINT" 
220 PRINT" 
230 PRINT" 
240 PRINT" 
PRINT" 

PRINT: PRINT: PRINT :PRINT" 
PULSAR UNA TECLA" 
IFINKEY$=""THEN270 
SCREEN2 



F3 


=COLOR 


AZUL 


F4 


=COLOR 


AMARILLO OSCURO 


F5 


=COLOR 


BLANCO" 


F6 


=COLOR 


AMARILLO CLARO" 


F7 


=COLOR 


AZUL OSCURO" 


F8 


=COLOR ROJO CLARO" 


F9 


=COLOR 


UERDE" 


Fíe 


3=COLOR 


MAGENTA" 



PARA EMPE 



250 
260 
ZAR 
270 
280 

290 COLOR 15.1,1- 

300 PLAY"06ABGFGF01 ACET250O3ACDEB" 
310 X=127:Y=95:S=15 

320 ONKEYGOSUB570. .820.830.840.850.860.8 

70.880.890 

330 KEYCnON 

340 KEYC330N 

350 KEYC430N 



360 
370 
380 
330 
400 



KEYC5D0N 
KEYC6D0N 
KEYC7D0N 
KEYC830N 
KEYC9D0N 



410 KEYC 10DON 
420 D=STICKC0D 
430 PSETCX. YD.S 



440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 



IFD=7THENX=X-1 : IFX<5THENX"-5 

IFD=3THENX=X+1 : IFX> 250THENX=250 

IFD=5THENY=Y+1 : IFY> 190THENY=190 

IFD=1THENY=Y-1 : IFY<5THENY=5 

IFD=2THENX=X+1 :Y=Y-1 

IFD=4THENX=X+1 :Y=Y+1 

IFD=6THENX=X-1 :Y=Y+1 

IFD=8THENX=X-1 :Y=Y-1 

IFX>250THENX=250 

IFY<5THENY=5 

IFY>190THENY=190 

IFX<5THENX=5 

GOTO 420 

D=STICKC0] 

ONKEYGOSUB. 320 

KEYC2D0N 

IFD=7THENX=X-1 : IFX<5THENX=5 

IFD=3THENX=X+1 : IFX> 250THENX=250 

IFD=5THENY=Y+1 : IFY> 190THENY=190 

IFD=1THENY=Y-1 : IFY<5THENY=5 

PSETCX, YD , 15 

PSETCX+1.Y+1D, 1 

PSETCX+l.YD. 1 

PSETCX. Y-1D. 1 

PSETCX. Y+ID. 1 

PSETCX-l,Y-n. 1 

PSETCX-l.YD. 1 

PSETCX+1.Y-1D. 1 

PSETCX-1, Y+U, 1 

IFD=2THENX=X+1 :Y=Y-1 

IFD=4THENX=X+1 :Y=Y+1 

IFD=6THENX=X-1 :Y=Y+1 

IFD=8THENX=X-1 :Y=Y-1 

IFX>250THENX=250 

IFY<5THENY=5 

IFY> 190THENY=190 

IFX<5THENX=5 

GOTO 570 

S=7:RETURN 

S=10:RETURN 

S=15 :RETURN 

S=ll :RETURN 

S=4 :RETURN 

S=9:RETURN 

S=2:RETURN 

S=13:RETURN 



Test de Listadosi 



Artista 



10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 



58 


150 


- 84 


290 


- 87 


430 


-111 


570 


- 54 


710 


- 53 


58 


160 


-244 


300 


- 44 


440 


-173 


580 


-105 


720 


- 53 


58 


170 


-114 


310 


- 95 


450 


-140 


590 


-197 


730 


- 44 


58 


180 


- 36 


320 


- 4 


460 


- 26 


600 


-173 


740 


- 45 


58 


190 


- 55 


330 


-196 


470 


-171 


610 


-140 


750 


- 48 


58 


200 


-187 


340 


-198 


480 


- 44 


620 


- 26 


760 


- 51 


58 


210 


-207 


350 


-199 


490 


- 45 


630 


-171 


770 


- 4 


58 


220 


- 37 


360 


-200 


500 


- 48 


640 


- 58 


780 


- 34 


58 


230 


-186 


370 


-201 


510 


- 51 


650 


- 52 


790 


-142 


58 


240 


-134 


380 


-202 


520 


- 4 


660 


- 49 


800 


- 32 


87 


250 


- 53 


390 


-203 


530 


- 34 


670 


- 50 


810 


-211 


241 


260 


-146 


400 


-204 


540 


-142 


680 


- 49 


820 


- 34 


32 


270 


-161 


410 


-203 


550 


- 32 


690 


- 54 


830 


- 35 


56 


280 


-216 


420 


- 54 


560 




700 




840 


- 40 



850 
860 
870 
880 
890 



36 
31 
36 
29 
38 



TOTAL : 
8251 



Programa 



iPor Ernesto Frigola Martorell 



CAVERNOUS 



Nuestro héroe tiene que 
avanzar por una peligrosa 
caverna y sortear numerosos 
peligros. Es un juego simple, 
pero destacamos la calidad de 
los gráficos y la velocidad de 
ejecución. 




*** CAVERNOUS *** 
*** DE *** 

***ERNESTO FRIGOLA** 
*** PARA *** 

*** MSX-CLUB *** 
******************** 

1 ; CLS 



SCREEN2 , 2 ! COLOR 15,1 



10 REM 
20 REM 
30 REM 
40 REM 
SO REM 
60 REM 
70 REM 
SO 

90 DRAW" BM65 , 32D6R6D4E7H7D4L6" 
1 00 DRAW'BMSS , 38L6D4H7E7D4R6DS" 
TIO L I NE C 25 , 10) -STEP (10, 1 O ) , 6 , BF 
1 20 DRAWBM20 , 2NR3D3R3D3L3BM25 , 2NR 
3D3ND3R3NU3D3BM30 , 2D6R3BM34 , 2R2ND6 
R2BM40 , 2D6R3U6L3" 

1 30 DRAW" C 1 4BM200 , 08F 1 4RSE 1 4L35C 1 5 
BM 1 96 , 1 3F 1 4D8G 1 4U35C 1 4BM200 , 54E 1 4R 
SF 1 4L35C 1 5BM240 , 1 3G 1 4D8F 1 4U35C 1 4C 1 
5BM 1 20 , 50L2G 1 L 1 G 1 D7F 1 R 1 F 1 R2R60E 1 R 1 
E1U7H1L1H1L2L60" 

1 40 DRAW'BMl 35 , 40NR3D3R3D3L3BM1 40 , 

40NR3D3ND3R3MU3D3BM 1 45 , 40D6R3BM1 49 

, 40R2ND6R2BM 1 55 , 40D6R3U6L3" 

150 LINEC0,70)-C2S5,70) ,8¡LINEC 105 

, ) - <: 1 05 , 70 ) , 8 ¡ L I NE C , 80 ) - C 255 , 80 ) 

,8 

160 PAINTC202,9), 1 4 ! PAINTC 1 98 , 17), 
1 5 : PAINTC 203 , 52 ) , 1 4 ! PAINTC 239 ,15), 
15 ¡PAINTC 120,53), 15 
170 OPEN"grp¡"AS#l 

1 80 PRESET C 1 , 72) ! PR I NT# 1 , " JOYST I C 
K TECLADO" 

190 PLAY"vl5T21004L8CDL4EG" ¡ PLAY" 
GAGEC" 

200 PLAY" L8CDL4E" ! PLAY"EDCL2D . L8C 
DL4EG" 

21 PLAY" GAGEC" ! PLAY"L8CDL4E" ! PLA 



Y"ED" : PLAY"DL2C . R4 

220 PLAY"L2F" ! PLAY"FL4A" ¡ PLAY"L2A 

" :PLAY"L4AG" :PLAY"GEC" 

230 PLAY"L2D. L8CDL4EG" ! PLAY" GAGEC 



240 
L2C 
250 
260 
270 
280 



PLAY"L8CDL4E" : PLAY"ED" ¡PLAY"D 



G0SUB2120 
A=99!F0RT=1T04 
PUTSPRITET, CA, 120) , 1 I , T 
A=A+16¡NEXTT 
290 REST0RE340 ! A2=86 
300 F0RA1=2T015 
310 READA* 

"320 COLORA 1 ! PRESET C A2 , 1 80 ) ! PR I NT# 1 
, A$ 

330 A2=A2+6:NEXTA1 

340 DATA C,P,U,L,S,A, ,R,E,T,U,R,N 
, ) 

350 Q$= I NKE Y$ : I FQ$ < > CHR* C 1 3 ) THEN35 

Ó 

360 sc=o:ni==i :li=3 

370 SCREEN2 ! CLS ¡ COLOR 15, 1,1: CLS 
380 B$=" C4BM 1 30 , 30L3G2L2G 1 L4D2F7D4 
G6D5G9D4G7F9D7F1 D9F1 D7F1 DI 0E2U6E2U 
9E4U6E5U5D4U7F8R1 E6U20H5U1 0H4U4H4U 
5" 

390 DRAWB* ¡PAINTC 1 29 , 3 1 ) , 4 

400 A$="C1BM1 33, 45G7D5G8D5G7F6D4R1 

D5R1 U6R1 U7E6F4R7U2H8U8E4U9" 

410 DRAWA* ¡PAINTC 131 ,48) , 1 

420 D$="C4BM5, 1 1 0R4F7R4E8R2D2R2U2E 

9U25G5L7H7L4H5L2G5D37" 

430 DRAWD*: PAINTC 7, 1 08 ) , 4 

440 C*="C1 BM1 0, 1 05R4E2R4E2R5E1 R2E6 

U4E1 U5L8D1 L6U1 L5G4L1 H5D6F2D1 3" 
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450 DRAWC* : PA I NT C 1 1 , 1 04 ) , 1 
460 LINECO, 134)-STEP<255,3), 3 , BF 
470 LINECO, 137)- C25S, 192), 7, BF 
480 G*="C4BM10, 1 39ND1 3R4BF1 D4BG1 L4 
" ¡ DRAWG* 

490 S*="BM17, 1 39D1 2BF1 R3BE1 Ul 2" ¡ DR- 
AWG* 

500 G*=" BM24 , 1 39ND 1 3BF 1 D4BF 1 D2BF 1 D 
3BF1U13" I DRAWG* 

5 1 O G*=" BM30 , 1 39R2NR2D 1 3" ! DRAWG* 
520 G*="BM36, 1 40D1 1 BF1 R3BE1 Ul 1BH1L 
3" : DRAWG* 

530 G*=" BM43 , 1 40D4BF 1 R3BF 1 D5BG 1 L3B 

Hl U2BM44 i 1 39R3BF1 D2" ¡ DRAWG* 

540 G*="BM1 20, 1 39R2NR2D1 3" ! DRAWG* 

550 G*="BM1 26 , I 39R1 NR1 DI 3L1 R2" ! DRA 

WG* 

560 G*="BM1 30 , 1 39MR5D6NR4D7R5" ! DRA 
WG* 

570 G*="BM1 37 , 1 39ND1 3BF1 D4BF1 ND4BE 
1U4BE1D13" : DRAWG* 

580 G*="BM1 43, 1 39ND1 3R4BF1 D4BG1 L4" 
: DRAWG* 

590 G*=" BM 1 50 , 1 40D TI BF 1 R3BE 1 Ul 1 BH 1 

L3" ¡DRAWG* 

600 A=99:FÜRT-1TÜ4 

6 1 O PUTSPR I TET , C A , 1 80 ) , 1 , T 

620 A=A+16:NEXTT 

630 CIRCLE<127,200),75,10, , , .SiCIR 
CLECO,0), 10, 1S:CIRCLE<0,0),20, ifetC 
IRCLE<0,0),30, 15 

64-0 L I NE C O , O ) ••- C 1 O , 30 ) , 15: LINECO, O) 
~C20,23) , 1S:LINE(0,0)-C27, 15) , 15:L 
INECO, 0)-C30, 5) , 15 

650 L I NE C 20 , 23 ) - ( 20 , 47 ) , 1 5 ¡ C I RCLE C 

20,50) ,3, 15:PAINT(20,50) , ISlPSETC 1 

8,49), 1 :PSET(22,49) , 1 

660 G*="C1 5BM1 7, 50L2G2D1 BM23, 50R2F 

2D1 " : DRAWG $ 

670 PAINTC 1 27 , 191 ) , 10 

630 G*="C1 1BM32,0D2R1D3R2D1R1D6R1D 

3R 1 U4E3R2U4E2R4F2D4F1 D6F1 D7R1 1 E2U3 

El R2E1 U4R3F2D4F2D2F1 D9F1 D8R1 E5M-5, 

+9D5F 1 D9R 1 1 E 1 USE 1 U 1 4E 1 U 1 1 E2U20" 

690 DRAW 6$ 

700 G*=" BM98 , 0D2R 1 D3R2D 1 R 1 D6R 1 D3R 1 
U4E3R2U4E2R4F2D4F1 D6F1 D7R1 1 E2U3E1 R 
2E I U4R3F2D4F2D2F 1 D9F 1 D8R 1 E5M-5 , +9D 
5F 1 D9R II E 1 U9E 1 U 1 4E 1 U 1 1 E2U20 " 
710 DRAWG* 



720 8*-"BMl 64 , ÚO' 



D3R2D1 



36 R 1 D3R 



1 U4E3R2U4E2R4F2D4F1 D6F1 D7R1 1 E2U3E1 
R2E 1 U4R3F2D4F2D2F 1 D9F 1 D8R 1 E5M-5 , +9 
D5F 1 D9R 1 1 El U9E 1 U 1 4E 1 U 1 1 E2U20" 
730 DRAWG* 

740 G*="BM230, 1 R3F2D4F2D6F3D9F2D7F 
3D10F3D1 Id22f8" 
750 DRAW G* 

760 PA I NT C 33 , O ) , 1 1 j PA I NT C 99 , O ) , 1 1 ¡ 
PAINTC 165,0) , 1 1 

770 G*="C11BM0, 133R255BM0, 129R6D1R 



1UTR1 OD 1 R3U 1 R 1 5F 1 R 1 F 1 R 1 E 1 U 1 R30D2R2 

U2R70U1 R2D1 R60D2R2U1 R2U1 R50" 

780 DRAWG* ! PA I NT C O , 1 3 1 ) , 1 1 

790 A=10! A1=19:FÜRT=1T0 3 

800 PUTSPR I TEA 1 , C A , 1 52 ) , , 32 

31 Q A=A+20 ! Al =A1 +1 : NEXTT 

820 A=4 

830 F0RT=80TD212STEP66 
840 A= A+ 1 : PUTSPR I TEA ,CT, 60 ) , 1 1 , 5 
350 A=A+1 : PUTSPR I TEA , C T , 760 ,11,6 
860 NEXTT 

870 A= 1 O ¡ FÜRT=53T0 1 85STEP66 
880 A=A+ 1 : PUTSPR I TEA , ( T , 23 ) , 1 1 , 5 
890 A=A+ 1 : PUTSPR I TEA , C T , 39 ) , 1 1 , 6 
900 NEXTT 

9 1 O PUTSPR I TE 1 7 , C 5 , 1 00 ) , 1 4 , 7 
920 PUTSPR I TE 1 8 , C 5 , 1 1 6 ) , 8 , 8 
930 REM 
940 CÜL0R4 

950 ES-i :x=5:y=ioo:ti.me-o:xi=53:yi 
=23 : X2= i i : si =1 : X3=o : H0=7 

960 G0SUB1230 

970 ÜN N I GDSUB 1 570 , 1 580 , 1 590 , 1 600 
,1610,1 620 , 1 630 , 1 640 , 1 650 , 1 660 , 1 67 
O 

930 LINEC49, 143)-(100, 1 60 ) , 7 , BF ¡ PR 

ESET C 49 , 1 43 ) , 7 ¡ PR I NT# 1 , SC 

990 ÜN SPRITE G0SUB1680 

1000 GN STRIG G0SUB1 890 , 1 890 

1 1 O SPR I TE ÜN : STR I G ( O ) ÜN ¡ STR I G C 1 ) 

ÜN:STRIGC2)ÜN 

1020 GÜSUB 1 360 

1 030 MÜ=ST I CK < O ) ÜRST I CK i 1 ) 

1 040 :[FMÜ=7THENX-X-3 ! H0=1 O ! GÜT01 03 

O 

1 050 IFM0=3THENX = X-i-3 ! HÜ=7 ! GOTO 1 080 
1 060 L I NE (. 1 56 , 1 43 ) - C 200 , 1 60 ) , 7 , BF ! 
"PRESET <: 1 56 , 1 43 ) , 7 ! PR I NT# 1 , I NT (TIME 
/SO) 

1070 GOTO 1020 

1080 ÍFX<5THENXs*S 

1 090 I FX >=250THENG0T0 1 1 40 

1 1 00 I FH 1 * 1 THENH 1 =2ELSEH 1 m ] 

1110 PUTSPR I TE 1 7 , C X , Y ) , 1 4 , Hü 

1 1 20 PUTSPR I TE 1 8 , < X , Y+ 1 6 ) , 8 , HO+H 1 

1 1 30 G0T01 020 

1 1 40 BEEP 

1 1 50 I FN I <9THENN I=NI+1 : SC=SC+ C 50*S 
1 )+100:GÜT0790 

1 1 60 SPR I TEOFF ! STR I G C O ) OFF ! STR IGC 1 
)OFF ¡ Zl *=="V1 5T1 0306L4CCD05G . Q6C8DE 
EFE. D8CE8D8C05G06C . D3E8F8GGGG. F8EF 
FFF. E8DEL8FEDCL4E . F8GL1 2AGFL4EDCR4 
R4 R20" 

1 1 70 Z2*=" vi 5T1 0805L4EGAD . G8GGAAGB 
AFEDE . R8R4GGGG . G8GGGGG . G8GGL8AGFEL 
4G. F8GR4GFER4R4 R20" 

1 180 Z3*="vl5T10804L4DEFG. A8B05C04 
AFGG#AFG03G04C03CR404CEGÜ5C04CR403 
CB04DG03GR404CÜ5CCC . Ü4A8EF8D8GÜ3G0 
4C03GC R20" 
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Programa 



1 190 PLAYZ1$,Z2$, Z3* 

1 200 COLOR 15,4,4: SCREEM3 ! PRESET C 1 O 
, 1 00 ) ! PR I NT# 1 , " THE END " 
1210 I FPLAY C O } THEN 1210 
1220 RUN 

1 230 I FL I =OTHENRETURN 
1240 A=10:A1 =19:F0RT=1TÜLI 
1250 PUTSPRITEA1 , CA, 152), 15,7 
1260 A=A+20 : Al =A1 +1 ¡NEXTT 
1270 RETURN 
1230 REM 

1 290 PUTSPR I TE23 , C 1 65 , 70 ) , 1 5 , 1 4 
1300 RETURN 
1310 REM 

1 320 PUTSPR I TE24 , ( 240 , 95 ) , 3 , 1 5 
1330 RETURN 

1 340 PUTSPR ITEH4 , ( X4 , Y4 ) , 1 1 , 1 3 

1350 RETURN 

1 360 I FES=0THEN 1 440 

1370 X3=X3+V1 : PUTSPR I TEX2+ 1 , (XI ,Y1 
+X3+1 6) , 1 1 , 6 

1 380 PUTSPR I TEX2 , C X 1 , Y 1 +X3 ) , 1 1 , 5 
1390 IFY1+X3>=98THEN1410 
1400 GOTO 1540 

1410 PUTSPR ITEX2+1 , CXI , Yl+16) ,11,6 

1 420 PUTSPR ITEX2 , C X 1 , Yl ) , 1 1 , 5 

1430 ES=0 ¡ G0TQ1 540 

1 440 AL= I NT C RND C -T I ME ) *F A ) 

1 450 I FAL< > 1 THEN 1 540 

1460 ES=1 ! Xé=*-V 1 : IFX<40THENQ0SUB15 
20 : XI =53 : Yl =23 : X2=l 1 ¡ G0T01 540 
1 470 IFX<S6THENG0SUB1 520 : XI =80 ! Yl = 
60 ¡ X2=5 : G0T01 540 

1 480 IFX< 1 05THENG0SUB1 520 : X 1 =1 1 9 : Y 
1=23: X2=13:G0T01540 

1 490 IFX< 1 32THENG0SUB1 520 : X 1 =1 46 : Y 
1=60: X 2=7 ¡GOTO 1540 

1 500 I FX < 1 7 1 THEMGOSUB 1 520 : X 1 =1 85 : Y 
1 =23 : X2=l 5 : G0T01 540 

1 510 IFX<240THENG0SUB1 520 ¡ X 1 =21 2 ! Y 
1 =60 ¡X2=9: GOTO 1540 
1520 SI «Sl+1 
1530 RETURN 
1540 RETURN 

1 550 QW*=INKEY* ! IFQW$=" "THEN1 550 

1560 SCREENO:LIST -89 

1 570 FA=80 : V 1 =4 ¡ RETURN 

1 530 FA= 1 O : V 1 =5 : RETURN 

1590 FA= 2: VI =6 ¡RETURN 

1 600 FA= 1 O ¡ V 1 =7 ; X4=23 ! Y4= 112: H4-25 

¡ GOSUBl 340 : RETURN 

1 6 1 O FA= 1 5 : V 1 =7 : X4= 1 05 ! Y4= 112: H4=2 
6 : GOSUBl 340 ! RETURN 

1 620 FA= 1 5 : V 1 =7 : X4= 1 65 : Y4= 112: H4=2 
7 '.GOSUBl 340 ¡RETURN 
1 630 F A= 1 5 ¡ V 1 =7 ! GOSUB 1 3 1 O ¡ RETURN 
1 640 FA= 1 5 : V 1 =7 : GOSUB 1 280 ! RETURN 




1 650 F A= 1 5 : V 1 =7 ¡ RETURN 

1 660 FA= 1 5 ¡ V 1 =7 ¡ RETURN 

1 670 FA= 1 5 ¡ V 1 =7 ¡ RETURN 

1 680 SPR I TEOFF ! STR I G ( O ) OFF ! STR I G C 1 

>GFF 

1690 IFX>232THEN1350 

1700 LI=LI-1 : IFLK0THENG0TQ1 760 

1710 PUTSPR I TE 1 7 , ( X , Y ) , O , 32 

1 720 PUTSPR I TE 1 8 , < X , 1 1 2 ) ,15,7 

1 730 PLAY" V 1 5T25003AL2CL4DL2F . L4GA 
// 

1 740 PLAY" A" ! PLAY" AL 1 A" 

1 750 I FPLAY C O > THEN 1 750ELSESC=SC-i-50 

*S1 : RETURN 790 

1 760 PUTSPR I TE 1 7 , C X , Y ) , O , 32 

1 770 PUTSPR I TE 1 8 , C X , 1 1 2 > , 1 3 , 1 6 

1 780 PLAY" VI 5T20003AL2CL4DL2F . L4GA 

1790 PLAY" A" ¡PLAY" ALIA" 

1 800 PLAY " L4 AL2CL4DL2F " ! PLAY"FL4DL 

2C.L1C" 

1 8 1 O PLAY" L4AL2CL4DL2F . L4GA" 

1820 PLAY" A" : PLAY" AL1 AL2C . L4AL2GAL 

1F" 

1830 PLAY"L2F. " 

1 840 F0RT=0T06000 ¡ NEXTT ! RUN 

1850 SC=SC+1000 

1860 G0T01 140 

1 870 IFFU=1 THENSC=SO600 ! STOP ¡ REMB 
WBBATENC 10 GOTO. . A LINEA PER FINA 
LITZAR SALT CUAN TOCA ARANYA 
1880 GOTO 1700 

1 890 STR I G C O > OFF ¡ STR XG< 1 ) OFF 
1 900 MO=ST I CK ( O ) ORST I CK < 1 ) 
1910 X4=0:X5=0 

1920 IFM0=7THENX4=-1 : X5=~l :H0=10 

1930 IFM0=3THENX4=+1 : X5=+l ¡ H0=7 

1 940 I FM0=0THENX4=0 : X5=0 

1950 X6=X:Y4=-2 

1 960 GOSUB 1 360 ¡ X=X+X4 ¡ Y=Y+Y4 

1 970 PUTSPRITE1 7 , C X , Y > , 1 4 , HO 

1 980 PUTSPR I TE 1 8 , ( X , Y+ 1 6 > , 8 , HO+2 

1 990 I FY=80THEN2000ELSE 1 960 

2000 Y4*0 : FORT= 1 TO 1 O 

201 O GOSUBl 360 ! X=X + X4 ! Y=Y+Y4 

2020 PUTSPR I TE 1 7 , C X , Y ) , 1 4 , HO 

2030 PUTSPR I TE 1 8 , ( X , Y+ 1 6 ) , 8 , H0+ 1 

2040 NEXTT 

2050 Y4=+2 

2060 GOSUB 1 360 : X=X+X5 ! Y=Y+Y4 
2070 PUTSPR I TE 1 8 , ( X , Y+ 1 6 ) , 8 , HOh 2 
2080 PUTSPR I TE 1 7 , C X , Y ) , 1 4 , HO 
2090 I FY= 1 00THEN2 I 00ELSE2060 
2 1 00 STR I G ( O ) ON ¡ STR I G ( 1 > ON 
21 1 O RETURN 1020 

2120 RESTORE 21 90 ¡ F0RT=1 T01 6 ¡ F*=" " 
2130 F0RI=1T032 

21 40 READY* ! 0*=CHR*C VALÍ "&h"+Y* > 3 




2150 F$=F*+0* 
2160 NEXTI 

2170 sprite*<:t>=f*:nextt 

2180 RETURN 

2190 DATA fb, fb, c3, c3, c3, c3, c3, c3, 

f b , f b , , , , i , , f 6 , f 6 , 36 , 33 , f 3 , f 
3,31,31,31, 30 , , , , , , 

2200 DATA 37 , 37 , 36 , 66 , 67 , 67 , c6 , c6 , 

c7 , 37 , , , , , , , be , be , 32 , 3e , 3c , 3 

4 , 34 , 32 , b2 , b2 , , , ,0,0, 

2210 DATA 86, c6, e6, f 6, d6, de, ce, c6, 

c6 , c2 , , , , , , , f b , f b , db , db , db , d 

b , db , db , f b , f b , , , , ,0,0 

2220 DATA 6f , 6f , 6d , 6c , 6f , 6f , 6 1 , 6d , 

ef , ef , , , , , , , 80 , 80 , 80 , , 80 , 30 

, 80 , 80 , 80 , 80 ,0,0,0,0,0,0 

2230 DATA 6E , 37 , 1 7 , 35 , 65 , 45 , 79 , 0F , 

1 A , 36 , 3E , 36 , 1 6 , 1 B , OC , 05 , 70 , 70 , 78 , 3 

8 , BO , BO , BO , FO , EO , EO , EO , BO , BO , BO , EO 

,E0 

2240 DATA OD , 1 D , 3F , 1 A , 1 6 , 1 A , OB , 1 B , 
1 F , 03 , OF , 1 D , 1 B , OE , 06 , 02 , EO , EO , CO , C 
O , CO , CO , 30 , 80 , 80 , O , O , O , O , O , O , O 
2250 DATA O , 07 , Of , 1 f , 3f , 3f , 7f , 7f , 7 
f , 7f , 7f , 7f , 3f , Of , 01 , Oe, O, f O, f 8, f c , 

fc, fc,c0,be,7e,7e,be,c0,fc,fc,fc,0 
2260 DATA Od , Od , Oe , Of , 06 ,01, 03 , 03 , 



03 , 03 , 03 , 03 , 03 , O , O , O , eO , f O , f O , 70 , f 
O , f O , eO , O , O , O , O , cO , eO , O , O , O 
2270 DATA Od , Od , Oe , Of , 06 , 01 , 03 , 03 , 
06 , Oc , 08 , Oc , Oe , O , O , O , eO , f O, f 8 , 78 , f 
8 , f O , eO , 60 , 30 , 1 O , 1 , 1 8 , 1 c , O , O , O 
2280 DATA O , Of , 1 f , 3f , 3f , 3f , 03 , 7d , 7 
e , 7e , 7d , 03 , 3f ,3f , 3f , O , O , eO , f O , f 8 , f 
c , fe, fe, fe, fe, fe, fe, fe, fe, f O, 80, 70 
2290 DATA 07 , Of , Of , Oe , Of , Of , 07 , O , O 
, , , 03 , 07 , O , O , O , bO , bO , 70 , f , 60 , 80 
, c O , c O , c O , c O , c O , c O , c O , O , O , O 
2300 DATA 07 , Of , 1 f , 1 e , 1 f , Of , 07 , 06 , 
Oc , 08 , 08 , 1 8 , 38 , O , O , O , bO , bO , 70 , f , 6 
O , 80 , cO , cO , 60 , 30 ,10, 30 , 70 ,0,0,0 
23 1 O DATA 0,0,0,0,0, O , O , Oc , Oe , Of , 1 
b, Ib, lf ,3f ,31 ,ff ,0,0,0,0,0,0,0,30, 
70, cO, 50, 58, 68, 2c , fe, f f 
2320 DATA 0,0,0,0,0, 03 , 07 , OD , 1 F , 6F 
, 87 , 83 , O , O , O , O , O , O , O , O , O , CO , EO , BO , 
F8 , F6 , El , Cl , O , O , O , O ,0,01, 01 ,01,01, 
01 ,07,0F,0F,0F,07,01 ,01 ,0,0,01 ,80, 
CO , CO , CO , CO , CO , FO , F3 , F8 , F8 , FO , CO , C 
O , 30 , 80 , CO 

2330 DATA 03 , 03 , 03 , 1 F , 1 F , 1 F , 03 , 03 , 
03 , 03 , OF , 1 7 , 2F , 5F , BF , 7F , CO , CO , CO , F 
8,F8,F8,C0,C0,C0,C0,F0,E8,F4,FA,FD 
,FE 
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Programa 



Por Antonio Millán 



PAREJAS 



El conocido juego de las pa- 
rejas ha sido realizado con 
notable sensibilidad, espe- 
cialmente por el diseño gráfi- 
co de las cartas que hay que 
emparejar. 



i 



AL: \- - 



10 ' 

20 '*A. MILLAN SAN EMETERIO* 

30 '* * 

40 •* PARA riSX CLUB * 

50 3(¡ *|C3(* «ji* ^ ^* ^ ^ ^ ^ ¡I* í*5f¡ ^ ¡I* ^'K'K 5f5 ^» ^ 

60 SCREEN2 

70 0PEN"GRP:"AS#1 

80 SCREEN 2,0:CLS:COLOR 15.1.1 

90 PLAY"CEGFDB" 

100 LINEC8.83-C248, 1843, 15.BF 

110 LINEC8.203-C248.443.5.BF 

120 LINEC8.443-C248.683,4,BF 

130 PSETC8.363 :COLOR 12 :DRAU"R4E6R4U4R12 

F12D4R4D4R4D4G29L18U60" :PAINTC24, 323 » 12 

140- PSETC 104,523 :COLüR 12 :DRAtú"E29R8U4R3 

D4R1F6D4F6D4F6G6H6L10D4L2U4L30" :PAINTC 13 

2.363. 12 

150 PSETC248.673 :COLOR 12 :DRALü"L24U3E8U4 
L44U8R8E24R28D48" :PA INT C 244 . 40 3 . 1 2 



160 LINEC8.683-C248.803. 14.BF 

170 LINEC8.803-C248. 1603. l.BF 

180 LINEC8. 116 3 -C 156, 1203. 10. BF:|_INEC 188 

. 1163-C248, 1203, 10, BF 

190 LINEC8, 1603 -C 248, 1723 , 14, BF 

200 LINEC8.583-C248.603, 15, BF 

210 FORB=10TO244STEP5 

220 CIRCLECB.643.4, 15 :CIRCLECB, 643 . 3, 15 
230 NEXTB 

240 CIRCLEC80, 32 3,4,8:PAINTC80,323 ,8 
250 FOR A=80 Tü 156 STEP 8 
260 LINEC160. A3-C 180. A+23, 15.BF 
270 NEXT A 

280 FOR 0=32 TO 248 STEP 70:FOR E=33 TO 
249 STEP 70 

290 LINECD.403-CD+2.683, 15, BF :CIRCLECE, 3 
73,4. 15:PAINTCE,373. 15 
300 NEXTE.D 

310 PSETC70, 103 :C0L0R1 :PRINT#1, "SAN SEB 
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ASTI AN" 

320 PSETC69. 103 ¡COLORI :PRINT#1 , "SAN SEB 
ASTIAN" 

330 PSETC 100. 1633 :PRINT#1 , "SOFTWARE" 
340 PSETC70; 1753 :PRINT#1, "ANTONIO MILL 
AN" 

350 PSETC69. 1753 :PRINT#1. "ANTOMIO flILL 
AN" 

360 FORI=1TO3000:NEXTI 

3 3?s ^ ^ ^* *í* *^ *p *K *K 2f¡ ^ ^íc 5fc /fe >fc 



380 '* * 

390 '* PAREJAS * 

400 •* n s x * 

410 'X P0R * 

420 '* ANTONIO riILLAN * 

430 '* * 



450 CLS:SCREEN1 :KEY OFF :COLORl . 9, 9 

460 LOCATE10,2:PRINT"PAREJAS" :L0CATE12. 1 

0:PRINT"POR" :L0CATE7. 17 :PRINT" ANTONIO MI 

LLAN" 

470 FOR I=1TO1500:NEXTI 

480 PLAV"05AB" . "06BA" 

490 * ************************* 

500 ^INICIACION DEL PROGRAMA* 

520 DIMAC403.MC403.GC103 
530 FORI=1TO10 
540 READ GCI3 
550 NEXTI 

560 DL=1000:R=0:S=0 

580 '* INSTRUCCIONES * 

5 9 ¡4^ ^ ¡§* ¡ÍE ¿tí ¡fc ¡j^ ^t» ^* *ív 3|ü 2jí ?fc ¡fe ¿fe 

600 CLS:L0CATE1»5:PRINT"ELIGE DOS CARTAS 

" : LOCATE 1. 7 :PRI NT "INTRODUCIENDO" :L0CATE1 

,9:PRINT"L0S NUMEROS CORRESPONDIENTES" :L 

OCATE1. 11 :PRINT"SI SON IGUALES GANAS" :LO 

CATE1 , 13 :PRINT" Y JUEGAS DE NUEUO' TU" :LOC 

ATE1, 15 :PRINT"SINO, JUEGO YO" 

610 L0CATE9, 1 :PRINT" INSTRUCCIONES" :LOCAT 

E9.2:PRINT" " :LOCATE0, 18:PRI 

NT" " rLOCATE 

7.20:PRINT"PULSA UNA TECLA" 

620 C$=INKEY$:IFC$=""THEN620 

630 CLS:L0CATE3, 15 : INPUT"EL IGE NIUEL Cl 

_ 63" :l 

640 IF Kl OR I>6 THEN 630 
650 T=l 

660 FOR J=1T0I :T=T*2:NEXTJ:IF T>40 THEN 
T =40 

670 SCREEN2,2:C0L0R15, 12 ,12:CLS 

680 *t* ^ *í ^t* *T* ^* íf" ^* ^* 'f* ^ 

690 'X NUMEROS DE LA MESA * 
^00 *t* ^fe 3^* ^ 3(c íf* ¡fe ¡fe *fe *fe *te «ÍC ¡fe **fe ¡fe ¡fe 

710 LET OI 

720 FOR J=29 TO 180 STEP 32 

730 FOR I=4TO 240 STEP 32 

740 PRESETCI. J3 rPRINTttl , C :OC+l :BEEP 

750 NEXT I,J 

^5 * *^ >^ ^ ^ ^ ^ ^ /fe /fe ^ ^ ^ yfc ^ ^ ^ *^ /íc >jc 
770 'X BARAJAR CARTAS * 

790 FORI=lTO40:ACI3=INTCI/2+.5 3 :MCI3=0:N 
EXT 

800 FORI=1 T O40 

810 J=RNDC -TI ME 3X¿0+1 :OACJ3 : AC J3=AC 1 3 : A 

CI3=C 

820 NEXTI 

8^0 *'* REPARTO DE CARTQS * 
850 * *********************** 



860 FORI=7TO240Si"EP32 

870 FORJ=4TO140STEP32:BEEP 

880 LINÉCI. J3-CI + 17. J+243.6.B [r 

890 LINECI. J3-CI+17. J+243. 1,B 

900 NEXTJ, I :BEEP 

910 ************************ 

920 '* ELECCION DEL JUGADOR* 

930 ************************ 

940 N$="' D R I MERA " 

950 GOSUB1810 

960 B=E 

970 N$=" SEGUNDA *' 
980 GOSUB1810 
990 IFB=ETHEN970 
1000 FORI=0TODL :NEX T I 
1010 Z=l :GOSUB2050 
1020 IFR+S=20THEN1510 
1030 IF2=0THEN940 
1040 GOSUB2240 

1050 ************************ 
1060 '* BUSCA CARTAS IGUALES* 
1070 ************************ 
1080 FORI=l TO T-l 
1090 B=MCI3 

1100 IF B=0 OR ACB3=0 THEN GOTO 1160 
1110 FOR J=I+1 TO T 
1120 E=MCJ3 

1130 IF E=0 OR B=E OR ACE3=0THEN G0T0115 


1140 IF ACB3=ACE3THENGOTO1430 
1150 NEXTJ 
1160 NEXTI 

1180-'* ELIGE PRIMERA CARTA * 

1190 ***#******************** 

1200 IF R+S=19THEN 2380 

1210 B=INTCRNDC-TIME3*40+13 

1220 IF ACB3=0THEN1200 

1230 FOR 1=0 TO T 

1240 IF MCI 3=BTHEN GOTO 1200 

1250 NEXTI 

1260 FOR I=1T0 T 

1270 E=MCI3 

1280 IF ACB3=ACE3THEN GOTO 1430 
1290 NEXTI 

T ^3 ^) ¡te ¡fe ¡fe ¡fe ¡fe ¡fe ¡fe ¡fe ¡fe ¡fe ¡fe ¡fe ¡fe 3f2 ¡fe ¡fe ¡fe ¡fe ¡fe ¡fe 3|c ¡fe Jjj 
1310 '* ELIGE SEGUNDA CARTA * 

1330 E=INTCRNDC-TIME3*40+13 

1340 IF B=E OR ACE3=0 THEN 1330 

1350 FOR 1=1 TO T 

1360 IF MCI3=E THEN 1330 

1370 NEXT I 

1380 IF ACB3=ACE3THEN1430 
1390 GOSUB 2240 

1400 ¡je ¡fe ¡fe ^t» íte ^fc ^ yfc ^fc /^c >^c >t* >|c <ÍC **K 

1410 ** CAMBIA EL TURNO * 

1 4 2 **K 3p 3|c «t* ^e ^e >fv /f* /|cj^c >íc ¡íc 

1430 Z=2 

1440 GOSUB 1960 

1450 IF R+S=20THEN 1510 

1460 IF 2=0 THEN 1080 

1470 GOTO 940 

1480 ************************ 

1490 '* CARTEL DE SALIDA * 

1500 ************************ 

1510 FOR I = 1T0 DL :NEXTI :SCREEN0:CLS:LOCA 

TE8.8: p RINT"TU PUNTUACION ES " :R 

1520 L0CA T E8. 10: D RINT ,: MI PUNTUACION ES " 

:S 

1530 IF S>R THEN 1560 
1540 IF S<R THEN 1590 
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1550 GOTO1610 

1560 L0CA T E7, 15 : D RINT'' T E GANO DE MUEUO C 

S/N ] 9" 

1570 PLA V " T 200O5ABCD'' 

1580 GOTO1610 

1590 LOCA T E10, 15 : p RINT"GANASTE ESTA UEZ" 



1600 
1610 
]?" 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 



PLA V " T 100O3ABCD" 
L0CA T E7. 17 ! D RINT"Ü T RA 



D ART IDA C S/N 



A$=INKEY$: IF A$=' ; ' :T HEN GOTO 1620 
IF A$="'S" T HEN 560 
IF q$=:"N"THEN STO^ 
GOTO 1620 

• J, -I/ j . ^t. ,i - ^ j, ,x- j, ,r. j, , o, ,r. -I . .1 . ,J, | .1. .1 . 

*TV *T- «T» ^* "T^ ^ ^* ^ «i* «T» ^» *T* »TV 

'* UUELUE UNA CARTA X 

P=INTC CN-n/8D :v=«i+32*p :X=7+32XCN-P 



1700 IFL-40THENL INECX, YD-CX+17, Y+24!) , 6, B 
F :L INECX, YD-CX+17, Y+24D , 1 . B : RETURN 
1710 IFL=50THENLINECX, YD-CXM7, Y+243, 12, 
BF :RETURN 

1720 C=INTCL/10D :F=L-C*10 

1730 LINE CX.YD-CX+17.Y+24D. 15.BF 

1740 LINE CX. YD-CX+17. Y+24D, 1,B 

1750 LINECX+3.Y+3D-CX+14.Y+21D. 1+CX4.BF 

1760 PRESETCX+6, Y+8D ¡PRINTttl , CHRSCGCFD D 

1770 RETURN 

1790 '£ PIDE CARTA X 

1 800 * XXXXXXXXXXXXXXXXXXXXXXX 

1810 LINEC20, 1803-C 120, 2503, 12,BF:PRESET 

C20. 1803 :PRINT#1.N$;"CARTA " : :B$="" 

1820 E$=INKEY$: IFE$=" "THEN1820 

1830 IF E$=CHR$C133THEN1850 

1840 B$=B$+E$:°RINTE$; :GOTO1820 

1850 E=UALCB$3 :PLAY"05D" 

1860 IF E<1 OR E>40 GOTO1810 

1870 IF ACE3=0THEN1810 

1880 L=ACE3-1 

1890 N=E 

1900 GOSUB1690 

1910 RETURN 

1 * 

X -w* ¿_ KJ T» ^jv «T^ T*» *r* -T» 1* T* *v» *l» *T V *r* *T» «T* <*i» fjk ■T* 

1930 '£ MUESTRA LAS CARTAS * 

X -w* i KJ *T» 1» '!> «T^ /T» «T* '7» /¡n /¡n »t\ '!> /T^ ^ <T" T* 1* 

1950 FOR 1=1 TO DL:NEXT I 

1960 N=B:L=ACB3-1 

1970 GOSUB 1690 

1980 F0RI=1 T ODL :NEXTI 
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1990 N=E:L=ACE3-1 

2000 GOSUB 1690 

2010 FOR 1 = 1 TODL :NEXT I 

2020 '£££#£££££££££££££££££££ 

2030 |*PONE CARTAS BOCA ABAJO 

2050 IF A* CB3=ACEDTHEN* 2140* 

2060 L=¿0:N=B 

2070 GOSUB 1690 

2080 N=E 

2090 GOSUB 1690 

2100 RETURN 

2110 '£££££££££££££££££££££££ 

2120 '* RETIRA LAS CARTAS IGUALES £ 

2130 '£££££££££££££££££££££££ 

2140 L=50:N=B:ACB3=0 

2150 GOSUB 1690 

2160 N=E:ACED=0 

2170 GOSUB 1690 

2180 IF 2=1 THEN R=R+1 

2190 IF Z=2 THEN S=S+1 

2200 Z=0:RETURN 

2210 ' XXXXXXXXXXXXXXXXXXXXXXX 

2220 'X RECUERDA LAS DOS ULTIMAS CARTAS 

X 

2230 'XXXXXXXXXXXXXXXXXXXXXXX 

2240 IF T=2THEN 2290 

2250 FOR 1=3 T T 

2260 MCI-23=MCI3 

2270 NEXTI 

2280 MCT-1 3=B 

2290 MCT3=E 

2300 RETURN 

2310 'XXXXXXXXXXXXXXXXXXXXXXX 

2320 'X DATQS DE FIGURA DE CADA CARTA X 

2 3 3 ^* ^ ^ ^ ^* ^f* 'f* ^ 

2340 DATA 187.207.198,199,193,191,201,74 
.81.75 

2360 'X ELIGE LAS DOS ULTIMAS CARTAS SOB 
RE LA MESA X 

2370 'XXXXXXXXXXXXXXXXXXXXXXX 
2380 FOR 1=1 TO 40 
2390 IF ACI3=0 THEN NEXTI 
2400 B=I 

2410 FOR J=I TO 40 

2420 PRINTttl. I : D RIN T ttl. J 

2430 IF ACJ3=0 THEN NEXTJ 

2440 E=J 

2450 GOTO1430 



Test de Listados 



Parejas 



10 


- 58 


130 


-208 


250 


-138 


370 


- 58 


490 


- 58 


610 


- 17 


730 


-146 


20 


- 58 


140 


- 71 


260 


-145 


380 


- 58 


500 


- 58 


620 


-247 


740 


-238 


30 


- 58 


150 


-255 


270 


-196 


390 


- 58 


510 


- 58 


630 


-145 


750 


- 66 


40 


- 58 


160 


-106 


280 


- 7 


400 


- 58 


520 


- 45 


640 


-123 


760 


- 58 


50 


- 58 


170 


-187 


230 


- 95 


410 


- 58 


530 


-190 


650 


- 85 


770 


- 58 


60 


-216 


180 


- 12 


300 


- 56 


420 


- 58 


540 


-104 


660 


- 95 


780 


- 58 


' 70 


-224 


190 


- 34 


310 


-162 


430 


- 58 


550 


-204 


670 


-147 


790 


-122 


80 


-127 


200 


- 77 


320 


-161 


440 


- 58 


560 


-159 


680 


- 58 


800 


-220 


90 


-160 


210 


-154 


330 


- 63 


450 


- 54 


570 


- 58 


690 


- 58 


810 


-106 


100 


-153 


220 


-227 


340 


-151 


460 


- 17 


580 


- 58 


700 


- 58 


820 


-204 
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Nue\o MSX-I <)(,<) 
de Philips 



Aprender puede ser divertido, con un ordenador 
PHILIPS MSX y el lenguaje de programación LOGO. 

Porque LOGO ha sido especialmente desarrollado 
para permitir a los jóvenes usuarios, iniciarse 
rápidamente en informática. Es increíblemente fácil de 
usar, con sencillos comandos en el idioma "nativo" del 
usuario. 

Además el MSX-LOGO de PHILIPS le da acción con 
color y sonido; lo que ayuda a generar y mantener su 
atracción en el aprendizaje. Por eso el PHILIPS MSX-LOGO 
es el favorito en todos los colegios y escuelas del mundo. 
Y aunque LOGO es recreativo, también constituye el 
fundamento sobre el cual el usuario adquirirá mayor 
destreza en la solución de problemas, y es en definitiva 
el sólido y excelente cimiento para estudios más 
avanzados. 

Como el propio Dr. Seymour Papert, inventor del 
LOGO declaró: "MSX y LOGO forman el matrimonio más 
ideal que podamos imaginar. Estando ambos orientados 

a gráficos, el MSX 
apoya todo lo que 
el LOGO ha de 
ofrecer en 
cuanto a 
música y 
animación de 
figuras". 





LECT0 

GRABADORA DE 
DATOS EN CINTA 
CASSETTE 
CONSTITUYE EL 
EQUIPO IDEAL DE 
BAJO COSTE 
PARA EL 
ALMACENAMIENTO DE 
INFORMACION DATOS Y 
PROGRAMA EN TODOS LOS 
ORDENADORES MSX 
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ORDENADOR PHILIPS 
POSEE FACILIDADES 
EXTRAORDINARIAS PARA LAS 
MAGENES EN COLOR, Y FORMA LA 
BASE PARA UN SISTEMA PERFECTO Y 
AMPLIABLE QUE CUMPLE LA NORMA 
STANDARD MUNDIAL MSX. 

Los ordenadores PHILIPS MSX disponen de una total 
capacidad gráfica en color y generación de música, y se 
integran de forma ideal con las facilidades educativas del LOGO. 

El MSX-LOGO de PHILIPS es el único que puede presentar 
hasta 30 tortugas, y cada una adoptando una figura entre 
60 definibles por el usuario mediante el editor incorporado; 
admite hasta 16 colores, puede emitir por tres canales 
musicales y otro más para efectos sonoros, el movimiento de 
figuras es autónomo, detecta choques de 'tortugas' y otros 
eventos, realiza un completo tratamiento de LISTAS y 
propiedades. 

PHILIPS ofrece lo que el poderoso mundo del 
Standard MSX merece: lo mejor. Y esto se 
concreta en sus equipos, en sus programas, y 
en el valor del dinero desembolsado. PHILIPS 
integra. 



PHILIPS 



Servicio de Información al 
simpatizante y usuario 



Programas 
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850 


- 58 


1090 


- 24 


1330 


-203 


1570 


-121- 


1810 


- 2 


2050 


-1 13 


2290 


- 38 


860 


-149 


1 100 


-149 


1340 


-238 


1580 


-231 


1820 


-176 


2060 


- 43 


2300 


-142 


870 


- 41 


1110 


- 52 


1350 


-249 


1590 




1830 


- 14 


2070 


- 59 


2310 


- 58 


880 


-225 


1120 


- 28 


1360 


-197 


1600 


-118 


1840 


-120 


2080 


-130 


2320 


- 58 


890 


-250 


' U30 


-254 


1370' 


-204 


1610 


77 


1850 


-133 


2090 


- 59 


2330 


- 58 


900 


- 60 


1140 


- 49 


1380 


-168 


1620 


-104 


1860 


-227 


2100 


-142 


2340 


-153 


910 


- 58 


1150 


-205 


1390 


- 99 


1630 


-:¿4 


1870 


- 99 


2110 


- 58 


2350 


- 58 


920 


- 58 


1160 


-204 


1400 


- 58 


1640 


-219 


1880 


- 22 


2120 


- 58 


2360 


- 58 


930 


- 58 


1 1 70 


- 58 


1410 


- 58 


1650 


-241 


1890 


-130 


2130 


- 58 


2370 


- 58 


940 


-181 


1180 


- 58 


1420 


- 58 


1660 


- 58 


1900 


- 59 


2140 


- 67 


2380 


-220 


950 


-180 


1190 


- 58 


1430 


- 92 


1670 


- 58 


1910 


-142 


2150 


- 59 


2390 


- 12 


960 


-118 


1200 


-"111- 


14¿0 


- -7¿ 


1680 


- 58 


1920 


- 58 


2160 


-147 


2400 


-122 


970 


-172 


1210 


-200 


1450 


- a 


1690 


- 27 


1930 


- 58 


2170 


- 59 


2410 


- 20 


980 


-180 


" 1220 


-251 


1460 


- 9 . 


1700 


-200 


1940 


- 58 


2180 


- 86 


2420 


-177 


990 


-182 


1230 


-248 


1470 


- 70 


1710 


-202 


1950 


- 59 


2190 


- 89 


2430 


- 14 


1000 


- 58 


1240 


-200 


1480 


- 58 


1720 


- 92 


1960 


-204 


2200 


- 34 


2440 


-126 


1010 


- 58 


1250 


-204 


1490 


- 58 


1730 


- 36 


1970 


- 59 


2210 


- 58 


2450 


- 50 


1020 


Er' 6 


1260 


-249 


1'500 


- 58 


1740 


-210 


1980 


- 59 


2220 


- 58 






1030 


-124 


1270 


- 27 


1510 


-119 


1750 


- 88 


1990 


-210 


2230 


- 58 






1040 


-99 


1280 


- 49 


1520 


- .7 


1760 


-243 


2000 


- 59 


2240 


-195 






1050 


.--58 


1290 


-204 


1530 


- 36 


1770 


-142 


2010 


- 59 


2250 


-251 






1060 


58 


1300 


- 58 


1540 


- 68 


1?80 


- 58 


2020 


- 58 


2260 


-194 






1070 


- 58 


1310 


- 58 


1550 


-231 


1790 


- 58 


2030 


- 58 


2270 


-204 
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-253 


1320 


- 58 


1560 


-228 


1800 


- 58 


2040 


- 58 


2280 


- 39 


263 


12 




MSX EL MANUAL ESCOLAR 



Escrito para alumnos de los últimos cursos de EGB y de BUP. este libro contiene muchos programas 
para resolver problemas y de aprendizaje, descritos de una forma muy completa y fácil de comprender 
Teorema de Pitágoras. progresiones geométricas, escritura cifrada, crecimiento exponencial, verbos 
irregulares, igualdades cuadráticas, movimiento pendular, estructura de moléculas, cálculo de interés 
y muchas cosas más Precio de venta 2.800. 



MSX LENGUAJE MAQUINA 



El libro del Lenguaie Máquina para el MSX está creado para todos aquellos a quienes el BASIC se les ha 
quedado pequeño en cuanto a rendimiento y velocidad Desde las bases parala programación en 
Lenguaie Máquina, pasando por el método de trabaio del Procesator Z-80 y una exacta descripción de 
sus órdenes, hasta la utilización de rutinas del sistema, todo ello ha sido explicado en detalle e ilustrado 
con múltiples eiemplos en este libro 

El libro contiene, además, como programas de aplicación, un ensamblador, un desensamblador y un 
monitor ¡Asi es cómo se facilita el acceso al Lenguaje Máquina! 305 páginas, P.V.P. 2.200,- ptat . 

MSX PROGRAMAS T UTILIDADES 

El libro contiene una amplia colección de importantes programas que abarcan, desde un 
desensamblador hasta un programa de clasificaciones deportivas. Juegos superemocionantes y 
aplicaciones completas Los programas muestran además importantes consejos y trucos para la 
programación Estos programas funcionan en todos los ordenadores MSX, asi como en el 
SPECTROVIDEO 318 328 1985. 194 párj P.V.P. 2.200.- ptat. 

MSX GRAFICOS T SONIDOS 

Las computadoras MSX no sólo ofrecen una relación precio/rendimiento sobresaliente, sino que 
también poseen unas cualidades gráficas y de sonido excepcionales Este libro expone las posibilidades 
de ios MSX de forma completa y fácil El texto se completa con numerosos y útiles programas ejemplo. 
Precio venta 2.200. 

METODOLOGIA DE LA PROGRAMACION 

El primer libro recomendado para escuelas de enseñanza de informática y para aquellas personas que 
quieren aprender la programación. Cubre las especificaciones del Ministerio de Educación y Ciencia 

6 ara Estudios de Informática Realizado por un alto mando del ejército Español, un Dr. Ingeniero y 
iplomado en Informática y profesor de la UNED y por un olicial técnico especialista en informática de 
gestión Utilizado en todos los institutos politécnicos del ejército español Es un seguro candidado a 
ediciones en lengua inglesa, alemana y francesa. Es el primer libro que introduce a la lógica del 
ordenador Es un elemento de base que sirve como introducción para la programación en cualquier 
otro lenguaje Precio venta 2.200 ptat. 
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Software MSX ^ 

Gestión y Productividad 




^ A 




Disfrute de las tareas de cada día, con un ordenador 
PHILIPS MSX y un programa de productividad 

Un ordenador PHILIPS MSX hará que 
muchas de las gestiones cotidianas sean más 
llevaderas y más productivas. Como la 
preparación de la correspondencia, el análisis 
de informes, el mantenimiento de los ficheros de 
clientes y proveedores, la confección de 
presupuestos, la emisión de facturas y recibos, y 
en suma, la administración de pequeñas 
industrias y negocios. 

El amplio surtido de programas MSX 
orientados hacia la gestión, son las soluciones 
que ahorran tiempo, esfuerzo y evitan errores en 
estos trabajos y muchos similares. La versión 
única de PHILIPS para el sistema operativo en 

disquette MSX-DOS, con su "auxiliar de 
usuario" hace más cómodo su trabajo 
ofreciendo la "selección por menú" 
de las operaciones a realizar y 
"páginas informativas" de ayuda 
al usuario. 

Además de esta 
.enorme variedad de 



LA UNIDAD DE DISCO DE 
ACCESO DIRECTO 
VY0010/11 CON 
DISKETTES DE 3.5" UNE 
A SU GRAN 
CAPACIDAD DE 
ALMACENAMIENTO 
UNA VELOCIDAD DE 
TRANSFERENCIA DE 
250 KBITS POR 
SEGUNDO. 





LA NUEVA IMPRESORA DE MATRIZ 
PARA CORRESPONDENCIA PHILIPS VWO030 
ES TOTALMENTE VERSATIL CON AMPLIA SELECCION 
DE TAMAÑOS, ESTILOS Y REALCES EN LA ESCRITURA, EN 
HOJAS SUELTAS O PAPEL CONTINUO. 

programas de productividad, PHILIPS tiene mucho 
más que ofertar en el mundo de la informática: 
potentes lenguajes de programación como el 
Pascal, o como el inigualable y universalmente 
conocido MSX-LOGO, además de sus programas 
educativo-recreativos. 

Los programas PHILIPS están respaldados 
por su gama de periféricos, incluyendo 
impresoras de calidad para correspondencia, 
unidades de disco de alta velocidad de 
transferencia y gran capacidad de 
almacenamiento, monitores monocromo y de 
color, cartuchos de interface serie, y muchos más. 

PHILIPS ofrece lo que el poderoso mundo 
del standard MSX merece: lo mejor. Y esto 
se concreta en sus equipos, en sus m ^ 
programas, y en el valor del dinero M 
desembolsado. PHILIPS integra. 
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